g 

O 

Q 
O 



r > 



«' 



^ o 




4 
< 



l«l The laph/News Journal For CorTjmodore Computers 



«95% Advertising Free! 



"March 1987: Volume 7, Issue 05. 

■r\ « 1 : - 



J3.50 



More Languages 




Life Doesnt Stand Still. . . 
Why Should Your Pictures? 




Full Screen Animation On Your Commodore 64! 



It used to be even the experts couldn't do It. 
Now< anvone can. 

Moving Pictures by AHA1 Is more than just another onimatbn 
package. It's a whole new breakthrough in software tech- 
nology. 

Moving Pictures Is fast, smooth, full-screen animation that Is 
totally under your control- 

You use your favourite graphics tool ' to draw the frames of 
your movie- then show it of full animation speed with o 
single commard! 

Write movie "scripts" in BASIC, using the powerfu) Moving 
Pictures command set for complete control of your crea- 
tions! 

Whether you're a programmer or a novice, you'll be able to 
put together and display Intricate scenes of your own 
inventloa You con even edit your scripts or execute o BASIC 
program while a movie Is beirvg displayed - Moving Rctures 
is a mumtatklng tystemi 



Besides being fun in itseff. Moving Pictures lets you eosily 
odd animation sequences to your own BASIC programs. 

Just a few of the many Moving Pictures features: 

• allows split screen operation - port graphics, part te)ft - 
even while a movie is running 

• repeat stop at any frame, change positioa and colours, 
vary display speed ard more 

• hold several movies in memory arvd switch lnstont!y from 
one movie to the other 

• instant on-line help available at the touch of a key 

• no copy protection used on the disk 

• arid here's the best part; the price is just $29.95! 

' Graphics program not included. Moving Pictures uses a 
standard hl-res bitmap, so many graphics programs are 
fully compatible, ircluding: Flexidraw'", Doodfe"", Gold Disk 
Art Package™. Print Shop Screen Magic", Perspectives*. 



Mall Orders: Transactor Publishing Inc., SOO Steales Avenue, Milton, ON, Canada, L9T 3P7 (416) 676-843S 

(or use order card at center). 



Canadian and Internoflonol Dealer Inquiries To: 

Norland Software Products, 251 Nlplsslng Road, Unit 3, 

Milton, ON, Canada, L9T 4Z5. (416) 876^774. 



USA Dealer Inquiries To: 

American Sottwore Distributors Inc., Box 290, 

UrbanalL,USA61801 1-800-22S7941. 



Volume 7 
Issue 05 

Circulation at Large 
72,000 




More Languages 



Start Address Editorial 3 



Bits and Pieces 6 

List 'n'Save 

Saving C-128 Function Keys 

Dvorak Layour 

Finding Relative File Record Lengths 

VIC Real-Time Clock Fix 

C-12S Program Merge 

One- Line Direct -Mode 

File Primer 

The 1541 Interleave Factor 

Fixes For The Compressor 

C-64 Time of Day Clocks 

Screensave for the C64 

Letters 11 

Copy-Ali SA and relative files: 

Adapting Search and Print 

Converting to Merlin 

'With permission from the T.' 

Plus/4's in our future? 

Plus/4 anguish, addressed to Jim Butterfield 

MLcolumn bandwagon grows 

In search of PET classics 

More GAMES feedback 

Unassembler and Symass fixes 

Symass POKE discrepancy 

1541 upgrade ROMs 

Super Kit - the dark side 

Squashing C-64 RS232 bugs 



NewsBRK 77 

Submitting WEWS BRK Press Releases 

Subscription Iniersecrion Set 

No More GUNKS 

Schedule IRQ 

Lale Note 

Sup^rpaks from Digital Solutions 

Free TransaciorTs with Mag + DiskSubscnpLion 

Transacior Disk Price Increase 

Refund Policy 

New Subscnption/Mfli] Order Card 

Transactor Disks, Back Issues, Microfiche 

Sorry, Wrong Number 

The MSD DOS Reference Guide 

New Services on QuantumLink 

Paperclip [lforC-128 

New Products for C- 1 28 Irom Abacus 

Ex lend- A- Key 

Aegis Art Pak^ Volume I 

File Archive Uiility for the C-64 

FORM ATX from Powersoft 

Portable Computer Protection 

Updated Tax Aid 

Bookkeeper's Aid for Commodore computers 

PROMAL News 



TransBIoopers 

Low Cost Universal EPROM Programmer 
Keyboard Expander 64: Vol. 7. Issue 3 



• • 



16 



TBleColUmn INer 2000 and CompuServe data Hbraiy filename extensions iU 

An Introduction to Amiga ML Comrol the system at the CPUIevel .. 21 

Programming the Amiga ns easier than you thinki 24 

ATale of Two CS AiookalCPowerandSuperCforlhe64andl28 34 

Language Speed Comparisons Benchmarks tor popular languages ,• 39 

CP/M block allocation calculator Read cp/M^es in i28 mode! •• 42 

Evaluating C-128 CP/M Ufewilh the CP/M Beta versions 43 

Assembling Assemblers The unique problems of writing an assembler . . , 48 

C64 Structured Programming Modernize your andem basic .-.. 51 

Blazin Forth An inside took at the Blazin' Forth compiler OO 

C128 Programmer's Aid a find, replace, and Ust-scroHing utility 65 

C"u4 ^dK KamUiSk a fast way to temporarily save your programs I I 

Amiga Dispatches More on the Amiga from 74 



Note; Before entering programs, 
see "Verifizer" on page 4 
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Program Listings In The Transactor 

All programs listed in The Transactor wil! appear as they would on your screen in Upper/Ujwer 
case mode. To clarify two potential character mix-ups, zeroes will appear as '0" and the letter "o" 
will of course be in lowercase. Secondly, the lowercase L(T) is a straight line as opposed to the 
number 1 which has an angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, 
or function keys. These will also be shown exactly as they would appear on your screen, but 
they're listed here for reference. Also remember: CTRL-q within quotes is identical to a Cursor 
Down, et al. 

Occasiona!ly programs will contain lines that show consecutive spaces. Often the number of 
spaces you insert will not be critical to correct operation of the program. When it is, the required 
number ol spaces will be shown. For example: 



prim 



I p 



flush right ' ' - would be shown as - print ' '[10 spaces]tlush right ' ' 



Cursor Characlers For PET / CBM / VIC / 64 



DOWD - 

Up 

Right - ■ 
Uft - [Lftl 
RVS - B 
RVSOff- ■ 



lDH«rt 

Delate 
Clear Scm - 
Home 
STOP 



S 

■ 

8 



Colour Characters For VIC / 64 



Black - 
White ' 
Red - 
Cyan - [Cyn] 
Purple- (Purl 
Gr^n - ■ 

Blue - ■ 
Yellow- [Yell 



Or«nge - 

Brown - 

Lt. Red - 

Gray I - 

Grty2 - 
Lt, Green - 

Lt. Blue - 

Grey 3 - 



[Gr3| 



Function Keys For VIC / 64 



Fl 
F2 
F3 
F4 



F5:- 

F6- 

F7- 
F8- 



Please Note: The Transactor's 
phone number is: (416) 878-8438 
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The Amiga is easily the most powerful, flexible and 
easy-to-use microcomputer available^ and is cheaper 
than anything else in its class. Yet the Amiga doesn't 
seem to be generating the sales it is capable of (we 
hear reports, "through the grapevine", of 150,000 
units), and we can't help but wonder why. 

Part of the blame» ol course, must fall with Commo- 
dore's marketing, both in their strategy and in 
amount. Television ads encouraging parents to give 
their child an unfair advantage by buying an Amiga 
probably missed the Amiga's market entirely, and the 
magazine ads weren't much better (what do they 
mean by 32 instruments?). The people at 
Commodore-Amiga did and are still doing a great job, 
but Commodore's marketing department seems to be 
working against them. 

But it's not all Commodore's fault. The stagnation in 
the micro industry caused by the IBM/MS-DOS stand- 
ard has made it hard lor anyone with a new, exciting 
product. The first thing you'll hear when you mention 
a new machine is "how (IBM) compatible is it?" or, 
"does it run Lotus?", Even for those not of IBM 
persuasion, there is scorn for any machine thai 
doesn't have a huge base of software available. This 
brings us to the old catch-22 of no software, no 
machines sold / no machines sold, no software. But to 
ensure that a healthy base of good software develops, 
you have to pick a machine that you believe in and go 
with it - if enough people do, the software will follow. 
That^s how it worked with the PET, the 64, and every 
other software-abundant machine. If you buy a ma- 
chine early in its life, you may have to live with a lack 
of commercial software for the first year or so, but you 
have the benefit of having the opportunity at being a 
pioneer; it's not hard to make new discoveries with a 
new machine. 



A common complaint about the Amiga is its price. 
This one I can't figure out. The Amiga is much more 
than just a 68000-based machine with exceptionally 
fast and flexible graphics hardware, but if even you 
look at it as only that, its competition is dedicated 
graphics workstations costing over ten times as much. 
It's a lot more than a home machine for running 
games on, but an Amiga system today costs less than a 
64 system did at its introduction. Considering infla- 
tion, it's considerably less. We all love the 64, but 
comparing it with the Amiga is like comparing or- 
anges with fruitstands- To be fair, the state of the art 
has changed, and people are used to paying less for 
high technology. Compare prices, then, between an 
Amiga system (512k unit plus monitor) with a Atari 
104OST (with disk drive and monitor). By looking at 
the machines, you sure wouldn't think they're in the 
same price range, but they are. 

But our purpose here is not to sell Amigas; we have no 
connections with Commodore, and could write about 
Ataris just as easily if Commodore passed from the 
face of the earth. What we are concerned with is the 
state of the small computer market. It used to be that a 
machine with more features and power than anything 
before it would make people line up to get il. Add a fun 
and easy user interface, multi-tasking, an extensive 
library of operating system routines, and expandabil- 
ity, and you'd have a hit. That seems to be no longer 
the case. Has the same market that was attracted to 
the 64 in '82 evaporated? What, then, of the vertical 
markets to which the Amiga lends itself: art, music 
composition, video production? Has Commodore's 
limited marketing efforts not reached these people 
yet? Or are they falling on deaf ears? Maybe IBM has 
made the industry change gears, but the same pio- 
neers that made stars of the PET, Apple II. VIC and 64 
could really shift it into overdrive with an Amiga. 
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Using "VERIFIZER" 



The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from the 
pages of The Transactor. It will let you check your work line by line as 
you enter the program, and calch frustrating typing errors. The 
VERIFIZER concept works by displaying a two-letter code for each 
program line which you can check against the corresponding code in 
the program listing. 

There are five versions of VERIFIZER here; one for PET/CBMs, VIC or 
C64, Plus 4, C128, and BI28. Enter the applicable program and RUN 
it. Ifyou gel a data or checksum error, re-check the program and keep 
trying until all goes well. You should SAVE the program, since you'll 
want to use it every time you enter one of our programs. Once youVe 
RUN the loader, remember To enter NEW to purge BASIC text space. 
Then turn VERIFIZER on with: 



PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 



SYS 634 to enable the PET/CBM version (off 
SYS 828 to enable the C64A/IC version (off 
SYS 4096 to enable the Plus 4 version (off 
SYS 3072,1 to enable the CI 28 version (off 
BANK15:SYS1024fQf B128 (oft:BANK15 



SYS 637) 
SYS 831) 
SYS 4099) 
SYS 3072.0) 
SYS 1027) 



Once VERIFIZER is on. every time you press RETURN on a program 
line a two-letter report code will appear on the lop left of the screen in 
reverse field. Note that these letters are in uppercase and will appear 
as graphics characters unless you are in up per/ lowercase mode {press 
shift/Commodore on C64/VIC). 

Note: If a report code is missing (or "--") it means we've edited that 
line at the last minute which changes the report code- However, this 
will only happen occasionally and usually only on REM statements. 

With VERIFIZER on, just enter the program from the magazine 
normally, checking each report code after you press RETURN on a 
line. If the code doesn'l match up with the letters printed in the box 
beside the listing, you can re-check and correct the line, then try 
again. If you wish, you can LIST a range of lines, then type RETURN 
over each in succession while checking the report codes as they 
appear. Once the program has been properly entered, be sure to turn 
VERIFIZER off with the SYS indicated above before you do anything 
else, 

VERIFIZER will catch transposition errors like POKE 52381 ,0 instead 
of POKE 53281 ,0. However, VERIFIZER uses a ''weighted checksum 
technique" that can be fooled if you try hard enough; transposing two 
sets of 4 characters wilt produce the same report code but this should 
never happen short of deliberately (verifizer could have been de- 
signed to be more complex, bul the report codes would need to be 
longer, and using it would be more trouble than checking code 
manually). VERIFIZER ignores spaces, so you may add or omit spaces 
from the listed program at will (providing you don't splil up key- 
words!). Standard keyword abbreviations (like nE instead of next) will 
not affect the VERIFIZER report code. 

Technical info: VIC/C64 VERIFIZER resides in the cassette buffer, 
so if you're using a datasette be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original destina- 
tion of the link after it's finished. When disabled, it restores the link to 
its original contents. 



CI 


■ lOrem* dataloaderfor "verifizer 4.0" • 


CF 


15 rem pet version 


LI 


20cs==0 


HC 


30 lor 1 = 634 to 754;read a:poke i,a 


DH 


40cs = cs + a:next j 


GK 


50: 


OG 


60 if CS01 5580 then print" «•*♦• data error ♦•••• 


JO 


70 rem sys 634 


AF 


80 end 


IN 


100: 


ON ! 


lOOOdata 76, 138, 2, 120. 173. 163, 2, 133, 


IB 


1010dala173, 164, 2,133,145, 88, 96,120, 


CK 


1020data145,201, 2,240, 16,141,164, 2, 


EB 


1030data144, 141, 163, 2, 169, 165, 133, 144, 


HE 


1040data 2,133,145, 88, 96, 85,228,165, 


01 


1050data201, 13,208, 62,165,167,208, 58, 


JB 


1060 data 254, 1,133,251, 162, 0,134,253, 


PA 


1070 data 0, 2,168,201, 32,240, 15,230, 


HE 


1080 data 165, 253, 41, 3,133,254, 32,236, 


EL 


1090 data 198, 254, 16,249,232, 152,208,229, 


LA 


1100data251, 41, 15, 24,105,193,141, 0, 


K 


1110 data 165, 251, 74, 74, 74, 74, 24,105, 


EB 


1120 data 141, 1,128,108,163, 2,152, 24, 


DM 


1130data251, 133,251, 96 




V1C/C64 VERIFIZER 


KE 


lOrem' dalatoaderfor "verifizer" » 


JF 


1 5 rem vic/64 version 


LI 


20cs = 


BE 


30 for i = 828 to 958. read a:poke i,a 


DH 


40 cs = cs + a:next i 


GK 


50: 


FN 


60 if csOl 4755 then print' •»»♦• data error »»•♦♦ 


KP 


70 rem sys 828 


AF 


80 end 


IN 


100: 


EC 


lOOOdata 76, 74, 3,165,251,141, 2, 3, 


EP 


1010data252, 141, 3, 3, 96,173, 3, 3, 


00 


1020data 3,240, 17,133,252,173, 2, 3, 


MN 


1030data251,169, 99,141, 2, 3,169, 3, 


MG 


1040data 3, 3, 96,173,254, 1,133, 89, 


DM 


lOSOdata 0,160, 0,189, 0, 2,240, 22, 


CA 


lOeOdata 32,240, 15,133, 91,200,152, 41, 


NG 


1070da1a133, 90, 32,183, 3,198, 90, 16, 


OK 


1080dala232, 208, 229, 56, 32,240,255,169, 


AN 


1090data 32,210,255,169, 18, 32,210,255, 


QH 


llOOdata 89, 41, 15, 24,105, 97, 32.210, 


JC 


1110data165, 89, 74, 74, 74, 74, 24,105, 


EP 


1120data 32,210,255,169,146, 32,210,255, 


MH 


1130data 32,240,255,108,251, 0,165, 91, 


BH 


1140data101, 89, 133, 89, 96 



:end 



144 
165 
165 
169 
217 
173 
189 
253 
2 
165 
128 
193 
101 



": end 



165 
201 
133 

141 

162 

201 

3 

249 

19 

165 

255 

97 

24 

24 



VIC/64 Double Verifizer Steven Walley, Sunnymead, CA 

When using 'VERIFIZER' with some TVs, Ihe upper left corner of the 
screen is cut off. hiding the verifizer-di splayed codes. DOUBLE 
VERIFIZER solves that problem by showing the two-letter verifizer 
code on both the first and second row of the TV screen- Just run the 
below program once the regular Verifizer is activated. 



Ttw Traraoclof 
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100 tor ad = 679 to 720:read da:poke ad,da:next ad 

1 10 sys 679: print: print 

1 20 print ' double vehfizer activated ■" :nGw 

130data120. 169.180,141, 20, 3 

140data169, 2.141, 21. 3, 88 

150data96. 162, 0,189, 0.216 

160 data 157, 40,216,232,224, 2 

170 data 208. 245, 162, 0, 189, 

180data 4,157, 40. 4,232,224 

190 data 2,208.245, 76, 49,234 



VERIFIZER For Tape Users 



Tom Potts, Rowley, MA 



The following modifications to tlie Verilizer loader will allow VIC and 
64 owners with Dataselles to use the Verlfizer directly (without the 
loader). After running the new loader, you'll have a special copy of the 
Verifizer program which can be loaded from tape without disrupting 
the prc^ram in memory. Make the following additions and changes lo 
the VIC/64 VERIFIZER loader: 

NB 30 for i = 850 to 980: read a: poke i, a 

AL 60 ifcs<>14821 Ihen print" •^•••dataerror'****": end 

IB 70 rem sys850 on, sys853 off 

— 80 delete line 

~ 100 delete line 

00 lOOOdala 76. 96, 3,165,251,141, 2, 3J65 

MO 1030data251J69. 121J41, 2, 3,169, 3,141 

EG 1070 data 133. 90, 32,205. 3.198. 90. 16.247 

BD 2000 a$= "verifizer.sys850[space]'' 

KH 2010 fori = 850 to 980 

GL 2020a$ = a$ + chr$(peek(i)):next 

DC 2030open1,1,1.a$:c1ose1 

IP 2040 end 

Now RUN. pressing PLAY and RECORD when prompled to do so (use 
a rewound tape for easy future access). To use the special Verifizer that 
has iusl l>een created, first load the program you wish lo verify or 
review into your computer from either tape or disk. Next insert the 
tape created above and be sure that it is rewound. Then enter in direct 
mode: OPEN I ;C10SEI . Press PLAY when prompted by the computer, 
and wait while the special Verifizer loads into the tape buffer Once 
loaded, the screen will show FOUND VERIF1ZER.SYS850. To activate, 
enter SYS 850 (not the 828 as in the original program). To de-activate, 
use SYS 853. 

if you are going to use tape to SAVE a program, you must de-activate 
(SYS 853) since VERIFIZER moves some of the internal pointers used 
during a SAVE operation. Attempting a SAVE without turning off 
VERIFIZER first will usually result in a crash. If you wish to use 
VERIFIZER again after using the tape, you'll have to reload it with the 
OPENlrCLOSEl commands. 



Plus 4 VERIFIZER 



Nl 
PM 
EE 
NH 
Jl 
AP 
NP 
JC 
ID 
PL 
CA 
00 
LP 
EK 



1000 rem* data loader for - verifizer +4- 

1010 rem • commodore plus/4 version 

1020 graphic 1 : scnclr; graphic 0: rem make room for code 

1030 cs = 

1040 tor j = 4096 10 4216: read x: poke j,x: ch = ch+x: next 

1050 if ch<>13146 then print 'checksum error": stop 

1060 print 'sys4096: rem to enable" 

1070 print ''sys4099: rem to disable" 

1080 end 

1090data 76. 14, 16,165.211,141, 2, 3 

1100data165, 212.141, 3. 3. 96,173, 3 

inOdata 3,201. 16,240, 17,133.212.173 

1120data 2, 3.133.211,169, 39,141. 2 

1130data 3,169, 16,141. 3. 3. 96.165 



Dl 


1140dala 20,133,208, 


162, 0,160, 0,189 


LK 


1150data 0, 2,201, 


48, 144, 7,201, 58 


GJ 


i 1160data176, 3,232,208,242,189, 0, 2 


DN 


1170data240, 22,201, 


32,240, 15,133,210 


GJ 


1180dala200, 152, 41, 


3, 133,209, 32,113 


CB 


1190 data 16, 198,209, 


16,249,232,208,229 


CB 


1200 data 165, 208, 41, 


15, 24,105,193,141 


PE 


1210data 0, 12,165, 


208. 74, 74, 74, 74 


DO 


1220data 24,105,193, 


141, 1, 12,108,211 


BA 


1230 data 0,165,210, 


24,101,208,133,208 


iBG 


1240 data 96 





CF 
HA 
DH 
HL 
CB 
CP 
CB 
ME 
FG 
FK 
MD 
OJ 
MP 
OM 
El 
ON 
NH 
IJ 

ML 
DE 
DN 
LM 
LE 
HC 
KE 
OF 
NO 
LP 



C1 26 VERIFIZER 

1 000 rem ■ data loader for verifizer 1 28 

1010 rem • commodore c128- 40 and 80 column mode 

1020 cs = 

1030 lor j = 3072 to 3226; read x: pokej,x; cs = cs + x; next 
1040 i1cs<>19526 then print ' checksum errorl' : stop 
1 050 print ' sys 3072.1 : rem lo enable ' 
1060 print * sys 3072,0: rem to disable 
1 070 rem 

1080data201, 0,208, 13,120,165,253,141 
1090data 20, 3,165,254,141, 21. 3, 88 
llOOdata 96,120,173, 21, 3,201, 12,240 
inOdata 17,133,254,173, 20, 3,133,253 
1120data169, 44,141, 20, 3,169, 12,141 
1130data 21, 3, 88, 96,165,240,201, 13 
1140data208, 94,165, 22,133,250,162, 
1150data160, 0,189, 0, 2,201, 48,144 
1 1 60 data 7, 201 , 58, 1 76, 3, 232, 208, 242 
1170data189, 0, 2,240, 22,201. 32,240 
1180data 15,133,252,200,152. 41, 3,133 
1190data251, 32,147, 12,198,251, 16,249 
1200 data 232, 208, 229, 56, 32,240,255,169 
1210 data 19, 32,210,255,169, 18, 32,210 
1220 data 255, 165,250, 41, 15, 24,105,193 
1230 data 32,210,255.165,250, 74, 74, 74 
1240data 74, 24,105,193, 32,210,255,169 
1250data146, 32,210,255, 24, 32,240,255 
1260 data 108, 253, 0, 165, 252, 24, 101, 250 
1270data133.250, 96 



BI28 VERIFIZER 



Elizabeth Deal, Malvern, PA 



1 remsave'@0:verifizerb128',8 

10 rem* data loader for 'verifizer b128'" • 

20cs = 

30bank15:!ori = 1024to1163:reada:pokei,a 

40cs = cs + a:nexti 

50 if CS016828 then print ' •• data error •♦ " ; end 

60 rem bank 15: sys 1024 
70 end 

lOOOdata 76, 14, 4,165,251,141,130, 2, 
1010dala141, 131, 2, 96,173,130, 2,201, 
1020dala 17,133.251,173,131, 2,133,252, 
1030 data 141, 130, 2, 169, 4, 141, 131, 2, 
1040dala 1. 72.162, 1,134, 1,202,165, 
1050data233, 32,118. 4,234,177,136,240, 
lOeOdata 32,240, 15,133,235,232,138, 41, 
1070data234, 32,110, 4,198,234, 16,249, 
1080data230, 165,233, 41. 15, 24,105,193, 
1090 data 208, 165, 233, 74. 74, 74, 74, 24, 
1100data141, 1,208, 24,104,133, 1,108, 
11 10 data 165, 235, 24.101.233,133,233.' 96. 
1120data164, 137,133, 133, 132,134, 32. 38, 
1130data 32, 78,141,165,133, 56,229,136, 
1140data170, 170, 170, 170 



165,252 

39, 240 

169, 39 

96, 165 

27, 133 

22, 201 

3.133 

200, 208 

141, 

105, 193 

251, 

165, 136 

186, 24 

168. 96 
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Got an interesting programming tip, short routine, or an unknown bit of 
Commodore trivia? Send it in - if we use it in "Bits", we'll credit you in the 
column and send you a free one-year's subscription to The Transactor 



List 'n' Save 



David Mackenzie Dvorak Layout 
Bethesda, MD and Speedscript 



Donald P Maple 
Calgary, Alberta 



I put a line like this at the beginning of nearly every BASIC 
program I write: 

5 rem " [6 detetes]open1 5,8,1 5, ' sO:filename - 
:close1 5;save " 0;filename " ,8 

{To create that line, type: 

5 rem "[6 inserts][6 de!etes]open. . . 

When I 'list 5", the line number and rem are overwrilten by 
the deletes, leaving just the open, close, and save. Then 1 just 
move the cursor up to that line and press RETURN. This 
technique encourages me to save changes frequently, and I 
never use the wrong filename by mistake. It also avoids the 
1 54 1 save and replace bug (most of the time) by scratching and 
then saving. 



Saving C-128 Function Keys 



Daniel M. Bickford 
San Francisco, CA 



1 program my C-128 function keys constantly while 1 am 
programming to perform short routines or speed up typing. Of 
course when I power down I'm back to reset values and, until 
lately, typing my key definitions back in again. 

The C- 1 28 uses memory locations 4096-435 1 for programmed 
keys. Pre-programming my function keys, saving that memory 
block to disk and having it autoboot I can free myself from 
typing them in over. 

To save the programmed key work area to disk simply: 

BSAVE "filename", U8,B0,P4096 TO P4352 
Load with BLOAD or .8.1. 



This is for all the people who typed in the Dvorak Keyboard For 
The Commodore 64 that appeared in the May 1986 issue and 
would like to use it from within the Speedscript word processor. 

The conflict between these two programs occurs in the RAM 
below Kernal ROM. Both programs use this area. Speedscript to 
store text and the Dvorak program to store a copy of the 
operating system. The " solution " to all this is to limit the 
amount of memory available to Speedscript. This is unfortunate 
but the only way short of rewriting Speedscript with built-in 
Dvorak layout. 

First of all, type in the following program and save it: 

10 f = 40832: t-40866 

20 printchr$(147)-i-' poking from" f "to" t 

30fori = ftot: read x$: print chr${19)chr${17)chr$(18);i 

40 1 = 48: if asc(left$(x$, 1 ))>57 then I - 55 

50 r = 48: if asc{right${x$,1))>57then r = 55 

60x = (asc(left$(x$.l)H)*16 + asc(right$(x$.1)-r 

ipokei.x: s = s+x: next 
70 it s=3593 then print " okey-dokey ' : end 
80 print " something's wrong! ' : end 
40832 data a9.35.8d,8e.09.8d,98,0e 
40840 data 8d,17,16.8d,df,14,8d,e6 
40848 data 14.8d.b4,1d,8d,bb.1d,8d 
40856 data 02.1e.8d.09,1e.a9.9f,8d 
40864 data b1 ,09,60 

To implement the Dvorak layout, do the following: 

- load and run the Speedscript fix program listed above 

- load (but do NOT run) Speedscript 

- type " SYS 40832 " and press RETURN 

You now have a modified version of Speedscript. Save it for 

future use. All that needs to be done next time is run the 
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Dvorak program first and then load and run Speedscript. Note 
that the above above modificalion requires the use of 
Speedscript 3. 0. 



220ife = thenmn = sz+1 : rem valid length, try higher 
230 if e = 51 thennix = sz-1 : rem bad length, try lower 
240ife = 0ore = 51 gotolSO 
250 print ' bad disk error- " e;e$,e2$,e3$ 



Finding Relative FUe 
Record Lengths 



Elizabeth Deal and 
Howard Harrison 



VIC Real-Time Clock Fix 



Meyer Gotteaman 
Napa, CA 



When you open a relative file and specify the record length 
using the "L" parameter, the file gels built and the record 
length never changes. But by looking at the file afterwards, do 
you really know ils record length? How about the file you 
created four years ago? How about a file from some commercial 
program? 

One thing that makes it hard to easily determine the record 
length of a relative file is that some file are written so that some 
of their records are shorter than their maximum allowable 
length (the actual record length specified when the file was 
created). 

The solution to finding the real record length is quite simple: it 
lies in the good, old. friendly error channel. If you position to 
byte in a record beyond the record length, you get an OVER- 
FLOW IN RECORD error. To find the record length, then, you 
could just code a loop that tried positioning to byte 1 in the 
record, then 2. etc. (checking the error channel after each 
position), until the overflow error came up. It couldn't be 
simpler. 

A faster approach is to use a binary-chop technique, as in the 
program below. This method guarantees that the correct value 
will be found in no more than 8 tries, rather than a maximum 
of 255 tries with the sequential method described above. Also, 
bear in mind that the disk only has to spin once - reading the 
record over and over again doesn't involve any disk activity, 
because the contents of the record is stored in a RAM buffer. 

The below program will work with any commodore 5 1/4" 
drive and 8-bil computer. 

1 00 rem relfile recofd-length finder in 8 tries 

110 rem elizabelh deal and hovward harrison 

1 20 rem independent of computer and disk roms 

1 30 rem independent of relfile format (reg or jumbo) 

1 40 rem does not scan any directory bytes 

1 50 rem is a read-only routine - uses just channe! 1 5 

160 open 15,8.15: open 1,8,3/ relfiiej" 

1 70 mn = 1 : mx = 254 ;rem record size range 

180 if mn>mx then close 1: dose 15: print" length = "; 

mn-1 : end 
1 90 sz = int((mn + mx)/2) :rem try length sz = midpoint 
200prinl#15/p''chr$(3+96)chr$(1)chf$(0)chr$(sz) 

:rem rec#1, possz 
210 inpul#15,e,e$.e2$.e3$: rem drive knows all about 

length I 



I've discovered if you POKE 371 58,147 (the default is ? 37). you 
correct most of the realtime clock error The original IRQ rate 
was slightly fast. This clock is about 53 seconds in 24 hours fast. 
With the correction, the error is reduced to about 2.29 seconds. 
Purists can adjust C-32, the trimmer in series with Y-l 
(14.31818 MHz crystal). 



Disabling the C-128 
RUN key - even more 



Ken Smith 
MUton, Ont 



Having myself once succumbed to the deadly SHIFT-RUN/ 
STOP faux pas, i am quite aware of the value of a fix for this 
feared bane of all C-l 28 programmers! 

The solution suggested by George Leolti (Bits & Pieces Sep/86) 
does, as explained, disable the RUN key. There is. however, the 
unwanted side effect of effectively redefining the HELP key to 
dL" • " +chr$(13)\ creating for us the same situation which it 
sought to alleviate! 

The cause of the problem lies in the way the programmable key 
definitions are stored and accessed. By changing the defined 
length of the RUN key from 9 characters to (poke 4104,0). 
without changing the actual length of the definition, the condi- 
tion for the occurence of the problem is created. 

When a programmable key is pressed, the locations $1000- 
$1009 (4096-4105) are checked for the current definition 
lengths of the specific key. as well as the lengths of the 
preceding definitions. The sum of the preceding values is a 
pointer to the appropriate position within the definition list at 
$100A-$!0FF(4106-4351). 

Since the definition length of RUN has been changed to 
without changing the actual definition, the definition read for 
the HELP key is in fact the first five characters (the defined 
length of HELP) of the actual definition of RUN. 

Hence, the unwitting CPU happily executes "dL " * " + chr$(13)' 
when the HELP key is struck, much to the dismay of the 
programmer! 

Here is my solution. Before altering any of the other program- 
mable keys, modify the definition of the RUN key to the 
relatively harmless command RUN by poking the following 
locations: 
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fori = 4159to4162: pokei.O: next 

For convenience, combine this modification with any others 
you may have for making your time al the keyboard more 
profitable in a short program on the autoboot disk. Below is a 
partial listing of my ""programming mode" file: 

1 fast 

2 print chr$(27); " u " : rem underline cursor 

3 fori = 4159 to 41 62: pokei.O: next: rem redefine run 

4 key1,'B|run" +chr$(13):rem clear screen and run 

5 key2/dload[16crsr'-right][5 spaces]" +chr$(13) 
: rem load from directory 

6key6/Qpen4,4:cmd4:list'' -fchr$(13)+ ^^^#4 
:close4'' -fchr$(13) 

7 (etc, . .) 

8 new 

The following lines are noteworthy: 

Line 4 clears the screen before executing a RUN. Saves having 

to first moves the cursor to a clear spot. 
Line 5 loads from a directory listing. Just cursor to desired file 

and hit F2 key 10 load ill 
Line 6 prints a listing and closes the file afterwards in one 

keypress. 

The suggestions are straightforward, but you'd be surprised at 
how many folks have yet to set up a small programming aid 
like this. 



and 1 would like to know which fiend at Commodore is 
responsible for this! 



C-128 Program Merge 



Don Lawrence 
Mississauga, Ontario 



The following procedure will allow you to merge two BASIC 
programs on the Commodore 128: 

reset the computer 

load the first program 

p = peek(174) + peek(175)*256 - 2 

poke45,p-int(p/256)*256 

poke46,inl(p/256) 

load the second program 

poke 45,1; poke 46,28 

Your computer will now have both BASIC programs in memory 
as one. The second program will immediately follow the first 
program even if its line numbers are smaller. Therefore, to 
avoid confusion, you should make sure that the program's 
highest line number is less than the second program's lowest 
line number before merging the two. 

You may find it interesting that the pointer to the end of text on 
the C-1 28 is not the beginning of BASIC variables as it is on the 
64. ! found this to be more time consuming than interesting, 



One- Line Direct- Mode 
File Printer 



Dean Gaudet 
Bramalea, Ontario 



Use this statement to dump a sequential text file to the screen 
from direct mode: 

openi ,8,2, " filename " :fori = Otol :sys43906#1 .a$ 
:i = st:?a$.;wait653,1,1:next:close1 

Use SHIFT to pause the output - the WAIT 653. 1 , 1 halts basic 
execution if the shift key is pressed. 

The SYS 43906* calls the GET* routine, without a check for 
direct mode. 



The 1541 Interleave Factor 



Robert Huetui 
Neustadt, Ont. 



While looking for a way to magically speed up my disk drive, 1 
found out how to change the distance between its sectors. The 
1541 zero page location at $0069 (105 decimal) holds the - 
interleave " value, which is normally ten. The interleave is the 
number of disk sectors between linked sectors in a file; the 
default value results in a file's consecutive sectors being stored 
ten sectors apart on the disk- An optimum interleave value 
means the drive has to wait the least amount of time lo read a 
sector, since the next sector will be close to the head when the 
drive is ready to read it. To change the interleave value, use the 
"m-w" command: 

open 15,8,15 

print#15, ' m-w/'"chr${105)chr$(0)chr$(1)chf$(va!ue) 

close 15 

Any subsequent saves will then be stored on disk with the 
sectors linked accordingly. (1 checked with a sector editor to 
make sure,) I hoped that Commodore's infinite cleverness had 
made them overlook a better number than the normal ten, I 
saved files at different interleaves, each 100 blocks long, and 
timed the loading speed. 

Unfortunately, it didn't have much effect at normal loading 
speeds. But it made a dramatic effect when I used a fast loader. 
The same file that took ten seconds at an interleave of eight 
needed 25 seconds at seven. The reason was obvious: the fast 
loader has to let those seven sectors pass by while it squirts the 
previous one through the serial bus. Therefore, if you use a fast 
loader, you should choose the smallest value that doesn't pass 
by the head too soon. With the same fast loader, I saved one 
second by using eight instead of the default ten interleave 
value. 
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During a normal load, over 60 sectors may pass while one is 
being sent by the slow bus routines. Since the gap at the end oE 
the track passes several times, it makes each track and each 
sector have different optimum interleaves. Anyway, it was a 
good try. 



Fixes For 

" The Compressor " 



John Robert Onda 
Lanham, Maryland 



'The Compressor' by Chris Zamara, published in Volume 6, 
Issue 4, Jan, 1986. is a very fine program, and one which seems 
to have inspired a number of public domain programs. How- 
ever, in my own experiments with the routine. 1 have come up 
against a few problems. 

I have worked exclusively with the " Listing 7 " version which 
saves and loads compressed hi-res graphics files lo and from 
memory- 1 have not experimented with the " Listing 6 " version 
which works on disk fiies, but similar conditions most likely 
apply. The following are the three problems I have encoun- 
tered: 

1) The routine reads 8001 bytes, not 8000. " Piclen " is speci- 
fied as 8000 bytes, but the first byte is read as (byte),y with y ^ 0; 
subsequently, y is set to 1 and all following bytes are read. This 
is a very minor and easily corrected problem. Simply set 
Piclen ■ to 7999, or even ignore the situation in most cases (but 
make note of problem *2), 

2) The construction of the " nextoul "/" spl " routines are such 
that the last group of identical bytes will not be written to disk, 
(IE byte *8001 is different than "8000, no problem is noticed; 
that is usually the case with the example program ' Listing 3 - .) 
At the worst this could cause up to 256 bytes of information lo 
be lost from the compressed file. A simple solution is: 



clear lda#0 

starepcount 
sta newbyt 
sta prevbyt 
sta endpic 
staendpic+1 
inc repcount 
rts 

Also, " Listing 5 ' . which splits Animation Station files, incor- 
rectly assumes the background colour is stored as the last byte 
of the file. In fact, the background colour is stored at a byte 
within the "extra useless bytes" skipped in line 310. In 
addition. Animation Station stores a border colour byte preced- 
ing the background colour bytes. One solution: 

3 1 for a = 1 to 63: rem useless bytes 

311 get^8,a$ 

312 next 

313get#8,a$: bo^asc(a$ + chr$(0)): rem border colour 

314 gel#8,a$: ba = asc(a$ + chr$(0)): rem background 

315 for 8=1 to 127: rem useless bytes 
316get#8,a$ 

31 7 next 
[delete line 410] 

440 print ba 

441 print "B^he border colour is:' 

442 print bo 

It is also worth noting that the " Animation Station ' software is 
a custom version of the program ' Blazing Paddles " by Baud- 
vitle and the file formats are identical. 

For those working with Koala files, which do not save a 
separate border colour byte, generally the background colour is 
used as the border colour; replace in Listing 4: 



1210nextout= • 


1220 


jsr outbyte 


1230 


da picplr + 1 


1240 


cmp endpic + 1 


1250 


bne nextout 


1260 


da picptr 


1270 


criip endpic 


1280 


bne nextout 


1290 


jsr wrilerep 


1300 


rts 



400 print 




he background and border colour is: 



[delete lines 1310-1340] 

3) The variables "repcount", 'newbyt', "prevbyt", and ' 
endpic" are specified as " ,byte 0" ; they are not merely 
reserved space but must be zeros upon entering the rou- 
tine. If left at previous values and the routine is called again, 
results are unpredictable. A simple solution is to clear these 
bytes before entering the main routine (jsr clear before 
entering the compressor): 



(Thanks for your efforts in correcting tfie compressor, John! The 
bugs were fixed in later re-incarnations of the compressor 
code, but we never printed the fixes or a de-bugged version. 
Fortunately, because of people like you helping us out. our 
readers are kepi up to date! -Ct) 



C-64 Time of Day Clocks 



Raymond F. Genovese 
Richmond, VA 



The two time-of-day (TOD) clocks in the 6526 CIA chips are 
often overlooked- They keep time in OJ second increments 
and are not disturbed by either tape or disk I/O. In fact, TOD 
clock *2 is not used at all by the C-64^s operating system. 
Starting at locations $DC08-$DC0B (CIA *1) and $DD08- 
$DDOB (CIA *2) their registers are as follows: tenths (bits 0-3). 
seconds (bits 0-3 & bits 4-6), minutes (bits 0-3 & bits 4-6), 



TiwTKnKictor 



hkMch 19«7: VbkMTW 7, Inu9 05 



hours (bits 0-3 & bil 4). The digits are loaded and stored in 
binary coded decimal format, and thus are a little awkward to 
work with. Writing to the hours register stops timing white 
writing (o the tenths register starts it. On the other hand, 
reading from Ihe hours register latches the time (but does not 
stop it) while reading from the tenths register unlatches the 
time. Listing 1 is an example routine that sets, reads, and 
displays a TOD clock. Features not implemented in this exam- 
ple are the AM/PM flag (bit 7 of the hours register) and the 
interrupt alarm features. In addition to keeping time, these 
clocks can be used to control fairly precise time-delay loops. 
Listing 2 demonstrates that technique. 

Usting*! 



Screensave for the C64 



Steve Lukshides 
Philadelphia, PA 



MO 
FK 
MG 
PB 
AA 
OJ 
LA 
OM 
DA 
NH 
AE 
JD 
KO 
DD 
MA 
OG 
CF 
AG 
MF 

AK 
MK 
Gl 

MF 



100 rem tod clock example 

1 1 gosub 1 50: print chr$(1 47) 

1 20 gosub 260: print t$;chr$(1 9) 

1 30 goto 1 20 

140: 

1 50 rem set and start the clock 

160ba = 56331: rem cia#1 

1 70 input " enter the time (hhmmss) ' :t$ 

180iflen{t$)<>6then170 

190forx = 0to5step2 

200y = vat(mid$(t$,x + 1,2)) 

21 y = int(y/1 0)* 16 + (y-int(y/1 0)" 1 0) 

220 poke ba-x/2,y: next x 

230 poke ba-3,0 

240 return 

250: 

260 rem read the time 

270t$= "':m$= " am" :for x-0 to 5 step2 

280 12$ = str$((peek(ba-x/2)and 1 1 2)/1 6) 

+ str$(peek(ba-x/2)and 15) 
290t$ = t$ + mid${t2$,2,1) + mid${t2$,4,1) 

300 if x<>4 then t$ - 1$ + " : " 
31 next x: X = peek(ba-3) 
320 return 



Listing *2 




100 rem 5-second delay using tod clock 

110ba = 56584:remcia#2 

1 20 poke ba + 3,0: poke ba + 1 ,0 

1 30 poke ba,0: rem start clock 

1 40 if (peek(ba + 1 )and 1 5)<5 then 1 40 

150 print" time's up!' 

160 end 



Screensave gives you peace of mind - you can leave your 64 
unattended for as long as you like, and not worry about 
burning out the monitor CRT! 

This short program for the C-64 sets up an interrupt routine 
that will help prevent images from being permanently burned 
into your monitor screen. This can happen if the screen stays 
on for a long period of time while displaying the same image - 
you can observe this phenomenon by looking at the screens of 
older video games at an arcade. Screensave will blank the 64's 
screen if there is no keyboard activity for two minutes - 
pressing any key (including shift, CTRL and logo) will turn the 
screen on again, with its original contents intact. Screensave 
runs in the background while it monitors the keyboard (or 
activity, so it doesn't affect the normal operation of your system 
when it's active. 

Just run the loader below to put screensave into the cassette 
buffer and activate it. Screensave is relocatable, so you can 
change lines 20 and 60 to store and execute it in any memory 
area you wish. To disable screensave, use SYS 864. 



CK 

OB 
JG 
MJ 
LA 
AC 
HP 
AF 
OM 
LM 
GO 
KB 
NN 
FF 
HC 
ME 
NM 
GG 
HF 
KA 
PO 
HM 
IF 
NH 
LE 
HH 
BB 
CK 
HO 
CK 
PD 



10 rem* data loader for ' screensave " • 

20 for J = 828 to 1 003:read a:poke i,a 

30cs = cs + a:next i 

40: 

50 if csOl 971 5 then print " Idata error! " 

60 sys 828 

70 print" screen saver activated! ' 

80 end 
90: 

1000 data 120, 173. 20, 3,141,236, 
lOIOdata 21, 3.141,237, 3.169, 
1020 data 20, 3,169. 3, 141. 21, 
1030data 0.141,240. 3.141.241, 
1040data238, 3, 88. 96,120.173, 
1050data141. 20, 3,173.237. 3, 
1060 data 3. 88, 96. 72. 8,169. 
1070 data 17.208,240, 41.169, 64, 
1080data208, 60, 32,197. 3,173. 
1090data240, 22.173, 32,208,141. 
1100data169, 0.141, 32,208,141. 
1110 data 169, 239, 45, 17,208,141. 
1120data 40,104,108.236, 3.169, 
11 30 data 203, 208, 5.173,141, 2, 
1140 data 173, 239, 3,141, 32,208, 
1150data 13, 17,208,141. 17,208. 
1160data141,240, 3,141,241, 3. 
1170data 3, 24.169, 1,109,240. 
1180data240, 3.144, 10. 24,169, 
1190data241. 3, 141,241, 3. 96, 
1 200 data 205, 240. 3. 208. 1 0, 1 69, 
1 21 data 241 , 3. 208, 3. 238, 238, 



end 



3,173 

111,141 

3,169 

3.141 

236. 3 

141. 21 

16. 44 
197,203 

238, 3 

239, 3 
238, 3 

1 7, 208 
64,197 

240, 240 
169, 16 
169, 

76, 156 

3, 141 

1, 109 

169, 32 

28. 205 
3, 96 
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Letters 



Copy-All 64 and relative files: A version of Copy-All 64, which is 
on the games disk (Transacior disk '13) and another early disk, 
cannot copy relative files. The PET version is alt right. Every once in a 
while your readers ask how lo copy, device to device, reiative files. For 
Instance, on page 15 in Volume 7 Issue 2 was a query about an SFDio 
SFD copy. It seems to me that Copy-All should handle thai with little 
effort. But there is a general misconception that Copy-Ail can't handle 
relative files. Weil, this isn't true, Jtm Butterfleld, long ago, fixed up 
the C64 version, but the T must have a unique version. 

The culprit is theCLRCHN routine which, unlike on the PET, in the 
C64 clobbers the X register (as well as .A). Now, there is a little piece of 
code in the old relative file section that goes like this: 

JSR $FFE4 ;readffrstbyleofch. 15 

TAX 

JSR $FFCC 

CPX #$30 ;isit "0"? 

BNE QUIT ;quitifnot 

LDA $90 ;read ST. loop if good 

etc. 

The result is that the $FFCC routine immediately makes X not equal to 
" " and causes Copy-All 64 to quit prematurely. 

The solution is simpler than you think. $FFCC does not touch the Y 
register. So substitute TAX by TAY and CPX by CPY, and you're in 
business. The relative file copy code begins at $n6E and the bytes to 
change are a screenful later. You can make the changes using the 

monitor and re-save. 

Elizabeth Deal, Malvern, Pennsylvania 

Thanks for rhe correction, Liz. Copy-Ait 64 goes on every Transactor 
disk, so it 's kind of embarrassing that this Utile bug has got pasi us for 
so long. However, at! future T disks will go out with the corrected 
version of the program, and Copy-Ail. one of the most useful and 
durable of all Commodore programs, will be even better than before. 



Adapting Search and Print: Mr. Boland's letter in the September 
1986 issue was an excellent update on the various enhancement 
packages available for SpeedScript, which gets belter every day! My 
article (Four wordprocessors) was submitted on October 10, 1985. at 
which lime none of the enhancement modules were available, hence 
their absence. There is usually a delay of several months between 
submitting an article and its publication and a lot can happen in that 
period as was true in the case of SpeedScript. 

I would like to lake this opportunity to congratulate you for doing such 
a great job. Transactor is a unique magazine and gels belter as it 
grows. I would also like to convey my praises to Jack R. Farrah for his 
Hi-Res Search and Prim utility which is a godsend! Users of B/Graph 
would find it extremely useful, especially Ihe double width screen 
dump. This can be easily fiex by changing the '40' in line 1310 to '41', 
Thiswouldfix 'dmcnt" solhat 40 columns are printed before the " 
ckclm" routine quits. 



Also, those who have Epson-code compatible printers (Epson, Pana- 
sonic, Roland etc.) should change the '51' in line 1290 lo '65' and the 
^16' in line 1300 to '8' and they should be able to use the program as 
well. If Mr, Farrah is reading this and is thinking of further upgrading 
his program, he might like lo enchance the density of the printout by 
using the high density feature of these printers ()20 dots per inch). 
This makes a nice dense printout which can be photographed for 
slides or photocopied for overhead transparencies. 



i hope the above suggestions help. 



Ranjan Bose, Winnipeg, Manitoba 



Converting to Merlin: I have recently subscribed to the Transactor 
and am interested in the programs listed as source code. My assem- 
bler is Merlin- Do you have any instruction sheets that would allow a 
novice lo convert the programs as listed to be used with my assem- 
bler? 

Any help along these lines is appreciated, 

Edward F, Weller, Jr., Sun City, Arizona 

In most cases, translating between assembler formats is not that 
difficult a job. Most assemblers adhere closely lo the standard created 
for the 6502 chip when it was first brought out: this is true of both PAL 
(the assembler we usually use) and Merlin. 

There are still a few things to watch out for The main source of 
incompatibility is the 'pseudo-ops] Uke.BYTEand WORD, whichcan 
vary pretty wildly hom one assembler to another PAL's repertoire of 
pseudo-ops is not large, and in nearly all cases you should be able to 
find ready equivalents in Merlin. The three most commonly used are 
.BYTE. .WORD and ASC. which allow you to set up tables of bytes. 
16-bit words and (Petscii) text respectively. 

At the top of PAL programs you '// generally see a directive beginning 
with the . OPT pseudo-op. which specifies where the object code output 
istobeseni The usual possibilities are .OPT 00, which assembles to 
directly to the origin address, and . OFT On, where n is Ihe number of 
an open disk file. The origin itself is set with a line like: 

1 00 • = $0000 

instead of the . ORG directive used by most other assemblers. 

Occasionally you'll see source listings that are so closely tied to the 
special capabilities of one assembler that they are very difficult to 
adapt to a different one. An example is the Help utility in this issue, 
which makes use of PAL's .BAS pseudoop. Since. BASis not supported 
by any other assembler we know of, you would hove to do some 
serious translation to port the source of this particular program. 



*Wllli permission from the T/; 1 wiih to copy one or two short 
articles (not more than a page, and no long listings), from various 
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- the ' Pasadena Commodore Computer Club Tid Bits' " . which is 
distributed free to members, giving credit to you and to the authors. 

I am not a club officer, just one of its approximately 400 members, I 
enjoy your magazine so much that I think the other dub members 
would enjoy utilizing the information also. 

I note tha( J. Butterfield includes a release at the beginning of each of 
his articles; this would of course be included with any of his work. 

For articles by other authors, including the Transactor staff, is it 
necessary to get a copyright release for each article individually, from 
you - and/or from the author, or is it sufficient to give credit as noted 
above in this free newsletter, 11 an article by article release is required, 
I may just skip the whole thing, because the clearance procedure is so 
time-consuming. Thereby depriving the many members of your 
expertise. 

I have been a subscriber to ttie Transactor, both the magazine and the 
disk, for several years and also have your ' Best of ' series. I plan to 
continue the subscriptions, at least for the foreseeable future. Keep up 
the same quality ol content and I predict a long and successful future. 

George L Taylor, Jr., La Canada. California 

Wefi, George, ahem. . .t'f ensuring that the members of your dub arent 
deprived of Transactor materia! is Ihe main concern here, then ! have 
an ideal solution which need not even be told. That '^solution" times 
400 would also contribute towards our "successful hjture"much more 
than the quality of our product. However, re-printing one or two 
particular articles (and this goes for all User Groups) is perfectly OK, 
providing the author and The Transactor are credited. 



machine language programming. Excellent book! You're a good 
writer and I learned a lot about C64 internals. My big problem is the 
conversion of software from the C64 map to the +4 map. 

BASIC conversions are not much problem for me if they contain just 
the most common PEEKs and POKEs. There is only one modem 
(1660 with modified +4 Higgy-Term software) that I'm aware of that 
will run on the +4, Sincel already have a C64 Total Communications 
Package 300 baud modem I've been trying to make it work with the 
+ 4. Big problem is that I can't convert ail of the C64 PEEK & POKE 
addresses to the +4 equivalents. What I'm needing are some very 
detailed memory maps (all of memory including Kernal and BASIC} 
for both C64 and Plus/4 machines so that I can make the conversions 
and see if the modem will work. When it comes to ML in DATA 
statements Pm totally lost because I've not yet written the translator 
software to do table look-up and replace on the C-64 — > Plu5/4 
address conversion. 

First of all, Jim, can you help me find the memory maps I need to set 
up the conversion tables l>etween the two machines? 

Secondly, Jim. can you teii me how to write or find a piece of software 
thai I can modify (maybe a kind of pre-processor that will make 
language translations) to take a lot of the conversion drudgery out by 
doing a look-up on the conversion tables and then writing and 
outputting the translated Plus/4 code? 

'DEARTH' is one of my favourite words, and there is a pretty complete 
DEARTH of Plus/4 support. I've got dozens of pent-up questions to 
ask someone in the know like yourself, but ril spare you the pain and 
just hit some of the biggies. 

For your information Jim: 



Plu»/4'8 in our future? I have a Commodore Plus/4 computer. 
Please advise if your magazine will continue to support the Plus/4 in 
the future. 

Mrs, Kathe L, Holiday, Cape Coral, Florida 

As you might expect, we are not exactly flooded with submissions 
relating to the Plus/4, nor do Plus/4 users constitute a very large 
portion of our readership. That means that you probably wont be 
seeing a lot of Plus/4 material in issues of the T. from this point on. 
Probably your best bet is to get in touch with PLUG, a Plus/4 users 
group. You 'II find the address, and a lot of other information, in the 
next letter, which Jim Butterfield extracted for us from his voluminous 
correspondence. 



Plu8/4 anguish, addressed to Jim Butter^eld: f am a Commo- 
dore Plus/4 computer owner. Since both the -+- 4 and C 1 6 are orphan 
machines, I've had to write most of my own software because there 
just isn't any viable support. 

In the June issue of the Transactor, 1 read with interest your CI28 
memoiy maps. The Pius/4 runs a 3.5 subset of the C128 7.0 BASIC 
and the two machines are very compatible in some respects. If I ever 
get upgraded to a C^ 28 Tm sure I'll have little difficulty translating +4 
map locations to C128 thanks to the excellent article. 

1 belong to a local Commodore users group where members mainly 
use C64 and C 1 28. Mine is the oddball machine in the lot and 1 have to 
convert most of the good C64 software 1 find. One of the first things I 
did after joining was to check out from the library your book on C64 



PLUG (The PLUS/4 Users Group) 

Box 1001 

Monterey, California 93942 

is one of the most active support channels for the +4 computer, lama 
member even though it's half-way across the country from where I'm 
at here in Arkansas. Calvin Demmon (a writer like yourself) is PLUG 
editor, and if you have any "pull' with Commodore, or could give 
PLUG a plug in your upcoming books or articles, it sure would help 
generate a little more interest and support. 

More PIus/4 computers have been sold than are actively in use, and 
most owners probably gave up on it because of Commodore s lack of 
marketing and software support. If we can get out the word that there 
is at least one active Plus/4 support avenue here in the USA, maybe 
the support will begin to coalesce and suppliers will take notice. 

Also Jim, I would like to get in more assembly-level programming on 
the +4. Plus/4 has a built-in monitor similar to CI28 and the C64 
Supermon. However, I very much need a true assembler. Have you 
seen any assembler software (however siow) that is written in BASIC 
or ML that I can easily convert and implement on the Plus/4? 

In a past issue of COMPUTEI's Gazette, there was an article entitled 
'VIC Emulator' which ran on a C64 to emulate the VIC computer. It's 
been in the back of mind to try and take some of the emulation 
techniques used to write a transparent emulator wedge (better yet a 
pre-processor) that would run on the +4 and allow use of the vast 
majority of C64 software that is available. Seems to me that such a 
compiler or language translator writer might just accomplish such a 
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task if the hardware will allow. [ am neither, afnJ don't have the talent 
or resources to tackle this kind of project but il you know of anyone 
who is there are a lot of software hungry +4 owners out there who 
would love to see such a piece of software (maybe even on a 
commercial basis if the marketing effort is right). From my limited 
knowledge, writing a piece of software like this probably wouldn't be a 
very easy task without the proper resources and backing, but then Tm 
not in a position fo say so definitely or even if the potential risks are 
loo great because the +4 is an orphan machine. 



Gary Hearn, N. Little Rock, Arkansas 



Jim's reply: Dear Gory, 



The Plus/4 is a fine machine, but is indeed an orphan. You seem to be 
coping welf. The foUowing may be of interest. 

-The Inner Space Anthology, published by the Transactor, contains 
detailed maps of RAM and ROM for the Plus/4 and C16. I've tried to 
keep wording consistent between maps, so you can do comparisons 
with the 64 or 128 as needed. 

-My book does cover the Plus/4 and CI 6. and you can run almost all 
the exercises on those machines. Dont let the title mislead you into 
thinking that it's only for the 64 or 128. 

-Many BASIC programs will run with little or no conversion. Snoop 
out the f^KE and PEEK statements to see if conversion is needed. The 
greatest work is in the area of sound and graphics, since a completely 
different chip is used. 

-Machine Language may convert fairly well Much of the problem 
you'll need to solve in doing a conversion is to allow for a new 
program location. Commodore 64 BASIC normally starts at address 
$0400. 128 BASIC at StCOO, on the Plus/4 and CI6, you'll normally 
start at $1000. Thus, the machine language program will also likely 
move up or down the same distance. Often, this isn't hard to fix: 
disassemble the code and look for three-byte instructions; the third 
byte is all that wilt need changing. As in BASIC, there are other 
locations that may need adjusting. 

-Commercial software is almost hopeless, especially if it has a 
protection scheme. Such programs are loo massive for an easy 

rechop. 

-I don 'f know of any conversion/emulator programs that would be 
useful for your problem. 

-I'm in touch with PLUG, and have donated some utility programs to 
them. It's very useful for orphan-owners to have such a group. 

-The SYMASS assembler, published by the Transactor, is public 
domain and source is available. It 's likely your best bet for conversion 

to Plus/4. 

Jim Butterfield, Toronto, Ontario 



ML columa bandwagon grows: Please let me be the 'nth' to join in 
Rick Nash's timely plea for a Machine language Column, Let us hope 
that your mail bags all burst in the generous flood of responses to this 
important suggestion. 

There must be countable thousands (or possibly even uncountable) 
"out there" who are nearly rank-quality amateurs and who would 
value such a column beyond all reasonable 'a priori" expectations. 



Being in agreement with Nash, however, does not mean that I feel 
restricted to his recipe for success. My own thoughts are quite different 
and. I sincerely hope, so are those of other respondents. 

My own deep desires for an ML Column include: 

\ . Large numbers of small ML programs that work! 

2. Clear reference to the publications used including page numbers. 

3. Documentation of each line with reasons why choices were made, 

4. Author information, including address, response category (does he 
or doesn't he)? 

5, Does author require SASE (or is he independently wealthy)? 

6, What assembler was used- 

7, Mention of reference{s) pertinent to the subject routine. 

Doubtless there are many other facets to this intriguing suggestion 
which will be forthcoming from other inspired readers. I, for one, truly 
hope so. 

Finally, in your quest for new readers, how could you do belter than to 
extend a bi-monthly helping hand (the Transactor Machine Language 
Amateur's Column) - possibly, page - ultimately book!! - to these 
sincere and deserving people? 

Robert G. Tischer, Starkville, Mississippi 

Although a regular tutorial column on machine language for novices 
isn "t totally out of the question, we do have a couple of reservations 
about the idea. For one thing, you cant hope to learn machine 
language in a series of small bimonthly doses - it would just take loo 
long. In our opinion, you'd do a lot better to learn the basics from a 
book (Jim Bulterfield's would be ideal) then, once you're over the 
initial hurdle, glean what you can from the source listings we publish 
in every issue. Sure, there'll be things you don't understand at ^rst. but 
you'll be surprised at the proficiency you can attain by banging your 
head on code that 's too advanced to follow completely. And the other 
thing you have to do, of course, is write programs - lots of them, until it 
starts to come naturally. The hardest part of learning machine lan- 
guage is the painful process of getting familiar with all those instruc- 
tions and addressing modes, and mastering some simple sequences to 
do common operations like J&bitmath, setting and clearing bits, and 
moving chunks of memory around. Once you 're through that phase, 
the going starts to get a lot easier. 



In search of PET clasflicA: I have just recently heard of the 
Transactor, and 1 must say that I am most impressed by it, 1 particu- 
larly like the small amount of advertising, and the large amount of 

utility-type programs, 

1 wonder if it would be a practical proposition for you to publish some 
of the old, but good, public domain programs for the PET/CBM 
machines, or possibly instruction on converting C/64 programs to 
CBM, 

You see, it is quite possible that there are people out there who, like 
myself, purchased a second-hand CBM at a time when those ma- 
chines were cheaper than a new C-64. 1 would think that there are a 
lot of newcomers to the world of computing who would like to get hold 
of some of the old PET classics. I know that this type of request is 
usually met with "Join a user group". Well, I did that, but no good 
public domain stuff for PET. 

Also, 1 have now received my G-link and have installed it as per 
instructions. The G-llnk works in both serial and parallel (IEEE) 
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mode. However, ihe G-iink will not switch from serial to IEEE and 
back again any more than Iwo times before the computer locks up and 
has to be reset (or switched off and on). 

I am using a C-64. 1541 drive and a SFD 1001. The idea is to have the 
G-iink switched to serial, load a program from (he 1541, switch to 
IEEE and save the program to the SFD 1001 . This can be done twice 
and the C-64 locks up; sometimes just the C-64 locks up, sometimes 
the cursor just disappears, other limes it remains immobile on the 
screen. Now maybe it's not designed to go back and forth l>elween 
serial and IEEE in the manner in which I am using it. If that is the case 
then 1 have a bonus; if it is supposed to switch back and forth between 
serial and IEEE without locking up the C-64, then it would appear that 
something is wrong. I would like to stress thai it wili work the SFD- 
1001 on its own, as it will the 1541 on its own. Anyway, the thing is a 
bit of a puzzle to me. Could you give me some more info? Does it work 
withtheC-128? 

Anyway, I still think that the G-link is pretty good, but I want you to 
know what is happening - just in case Murphy's law is operating (is 
it?). 

Bill Bennett, North Lidcombe. New South Wales. Australia 

Sorry. Biff, but it just wouidn ^t be practicai for us to start rerunning PET 
listings in the Transactor. As it stands, we already don t have room for 
aif the material we would like to run on the new computers, and there 
just isn 1 the demand to justify reprising PET oldies. We do still run PET 
versions of some of our new programs, when possible, sodontiftink 
we've given up on Ihe green screens altogether Also, the first couple of 
Transactor disks hove lots of material for the PETs, including some of 
the classic utilities that you 11 use again and again. 

Your G-Link is behaving normally Switching bock and forth between 
serial and IEEE modes can, and frequently does, crash the computer 
with the symptoms you describe. As far as I know, nobody has come 
up with a definitive explanation of the cause of this crask 

Luckily, though, there is a way around it. h appears that the crash only 
happens when the cursor is on the screen. That being the case, all you 
have to do is ensure that the cursor isn If active when you flick the G- 
Link switch. If you don t use o Datasette. the easiest way of doing this 
is to press SHIFT-RUN /STOP, flick the switch, and then press RUN/ 
STOP (unshifted). Othenvise, you could type WAIT 653.1, flick the 
switch, and then press the SHIFT key. 



Okay, everybody who wants to see another GAMES issue, with the 
emphasis on graphics and sound, put up your hand. Or at least send 
us a postcard, telling us what it was you would have liked to see in that 
issue, but didn't. If the response is sufficient, may t}e we'll take another 
crack at games in a future issue. Meanwhile, if you take a look back 
through past issues as recently as Vol 7, Issue 03, you 'II find a small 
article on raster interrupts that will help you get started with your 
project. 



UnaftAembler and Symass fixes: 1 am writing to thank you for two 
wonderful programs, 1 am one of those who entered Symass from the 
sourcelistingandhaveconvertedit to write the ML program to disk as 
a program file. I also added the Ascii codes for 'end\ 'or", 'eor* and 'ror' 
so that [ can assemble source code which has been written directly to 
disk. 

This last modification was needed because 1 also converted Un as- 
sembler to write directly to disk as a program file. Rather than send 
the token for each BASIC keyword, I chose to send the Ascii for the 
keyword. 

During the process of changing both of these fine programs, 1 discov- 
ered several problems with them. Symass has only one that I am 
aware of. The listing on line 1020 should be CMP •''.'' rather than 
CMP *' ' . Symass has changed my life! 

Unassembler has a number of problems. The most severe one is 
associated with the 'absolute' commands. The reported problem with 
the 'bit' command (A BIT of a Problem, May 1986) is a resuh of this 
defect. It is not solved by simply changing all the bit commands to 
.byte commands. 

The problem shows up when there is a bit command in regular code 
and also when there is any absolute mode code which has an address 
less than 256. This will occur when the Unassembler is in Ascii tables 
and encounters the following sequence: 'absolute command, address, 
.byte 0'. The Unassembler recognizes the command. It then lakes the 
next two bytes and treats them as low/high. Multiplying the second 
byte by 256 resuhs in zero. It then stores the result as 'zero page 
command, address', dropping the final \byteO', 

To correct this problem, load Unassembler and enter the following 
lines: 



As for using the G-Link with the C- 128 ' sorry, itwontwork. exceptin 
C-64 mode. The G-Link operates by replacing the 064 Kernal ROM 
with a ROM of its own, and that isn ^ going to help you at all in C- 128 
mode. If anybody does know of a good lEEB interface for the C-I2S, 

we 'd appreciate it ilyou 'd let us know so that we can pass it on. 



More GAMES feedt>ack; 1 totally agree with Wayne Gurley, (Letters, 
November), relative to the September issue on Games. 

1 have designed ML utility programs and a software protection 
scheme. Now 1 am trying my hand at composing my own arcade game 
which employs graphics. 1 have searched in vain for a book that 
contains advanced techniques like raster interrupt and horizontal 
zone scrolling, I wrote to a number of software producers with zero 
response. It would have been nice if the Games issue contained some 
techniques used in arcade games. There are tons of "Beginner" books, 
but absolutely nothing, to the best of my knowledge, for advanced. 

John Augustine, Reading, Pennsylvania 



1380 pp$= "";ad$=":ift^O then 1405 

1405 itn=14then 1430 

1410 if n>0 and n<14 then pp$ = ad$ + n$+ " " 

1430ifn>10thenon{n-10)gosub 1950,1980,2010,2015 

1445if n = 14then1380 

1 732 if ad<256 then n = 14. return 

1792 if ad<256 then n = 14;return 

1852 if ad<256 then n = 1 4:return 

2015 rem *• •convert absolute address less than 256 to 

.byte commands 
2020p$ = ad$+ Vbyte " +str$(op)+ "^byte ' 

+ str$(ad)+ \.byte0 ;*-'was' -f-n$+- '"'^ 
2022n = 0;gosub2150:p = p + 2:return 

This modification will substitute .byte commands for the offending 
absolute command and notify you what command was changed. 

Also, the proper way to implement the 'bit to .byte' conversion is: 
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330 print " Do you want bit commands converted into ,byte 

commands? " 
340gelan$:ifan$= " then 340 
350 if an$<> 'y" and anSO ' n ' then 340 
360if an$= "y" thenmd(36)-0:md(44) = 
362 If anS = " n - then md(36) = 1 4:md{44) = 1 4 

Another minor problem with Unassembler when used with Symass is 
in line 2010. The + ' A " has to be removed or Symass will assign a 
label to the 'A'. 

By the way, one of the best ways to test both Unassembler and Symass 
is to unassemble a short program such as C-64 wedge. Reassemble it 
with Symass and it will be exactly the same if t)oth programs are 
working correctly. 1 have tested it on several programs and it always 

works. 

Thomas W, Gurley, Wills Point, Texas 

RS. I am the only staff programmer for the Pondaroda Nudist Resort. It 
sure is a hard lifel 

Thanks for the detective work, Thomas. And you cenainiy hove our 
sympathfes over your work sHuathn. Let's hope things wili get better 
soon. It's a sobering thought for us. heezing compiacentty here in 
Canada, that others, less fortunate than ourselves, are forced by a 
cruel fate lo wn around with no clothes on in the Texas sunshine and 
program microcomputers into the bargain. Who can understand the 
workings of Fate? 



Syma«» POKE discrepancy: Problem: in Vol. 7, Issue 2. Page 40. 
you published a bug correction (Symass 3, 1 2). 

In VoL 7, Issue 3, Page 14, you did another (Symass 3J3V Bui the 
third pokes in these two articles do not agree. Which is correct? 

Emil J. Volcheck, Jr., West Chester, Pennsylvania 



Very observant, Emil! For (he benefit of those who dont happen to 
hove those issues handy, the pokes in question are: POKE 5057.50 
(Issue!), and POKE 5057,5 1 (Issue 3). We're happy to report this isnt a 
typo. What the second poke corrects is simply the version number 
(3. 13 instead of 3. 12). The 50 in the first poke is the Ascii code for the 
numeral '2 '; the 51 in the second poke is the code for 3 '. 



154 1 upgrade ROM»: In the November 1 986 issue on page 77 there 
is an offer for ROM upgrades for the 1541 disk drive selling for $49.95. 

What 1 am not sure of from the information in this column is whether 

the two ROMs are pin for pin compatible with the Commodore ROMs 

(direct replacement), or are the provided ROMs of the type that would 

need the 28 to 24 pin adapters? 

Terrence Smith, Lachine, Quebec 

The ROMs will plug right in. Terrence. As you 're probably aware, the 
24-pin EPROfUs are less common, hence more expensive, than the 28- 
pintype. We could have used the 28 pin EPROMs. but this would have 
required 28 to 24 pin adapters for each chip and the price would have 
beennoless. Besidesthat, the adopters raise the chips so high that you 
can 't get the lid bock on the disk drive once they Ve installed. 



Super Kit - the dark side: 1 finally received the Super Kit 1541 after 
a long wait. Was it worlh it? 1 don't think so. The Super Kit turned out 
to be a Super Disappointment. 

After slaving the whole weekend over this thing, I still have to 
produce a workable copy of the Super Kit as instructed in the 
accompanying booklet. I checked out my drive with an alignment 
program, then one that reads track 1 and 35 only, and finally another 
one from the original 1541 demo disk. My drive is in alignment. After 
that i checked my drive speed and that seems to be in order too. My 
drive was checked out 6 different ways and there is nothing wrong 
with it. 

Single Nibbler: produces a non-working copy of a disk with one single 
error 23 on and places it elsewhere. 1 duplicated one disk that had an 
error 23 on track 35, seclor 16. It reproduced the error faithfully on 
track 35, sector 3, Ergo, my program won't run. 

Single Copier: Produces a workable copy of an unprotected disk- 
However, only in the non-verify version. The Single Nibbler does the 
same. U reads the first pass, then proceeds to write the first pass. Half- 
way through wrihng the first pass, the drive does a double-take, 
continues for a while, then stops, as it should, waiting for the second 
pass. Meanwhile, the screen stays bright, there is no message for the 
second pass, and the computer is locked up and nothing works. 

Scan; D option sends drive off into never-never-land most of the 
time. 

Disk Editor; In monitor mode gives wrong conversion: when asked lo 
convert 2049 decimal to hex, the answer is not correct, it comes up 
with $070T Binary is also wrong. Same thing for 1024 decimal: it 
converts it to $0300. When asked the equivalents for $801 it brings 
the right answer. The decimal to hex and binary is wrong. 

Disk Surgeon: I was able to produce one copy of Karaleka that was 
actually working. ! tried Skyfox. It produced a copy that at the end of 
the loading process made my drive 'sing\ 1 thought it had stripped 
some gears and I had a hell of a time getting the drive initialized. 

With the Super Nibbler I came very close to producing a working copy 
of Super Kit. However, the flashing border was absent and it showed 
the first page of the menu, and locked up the computer. 

Meanwhile, my expensive programs are still as vulnerable as ever, 
without having a back-up copy. 

I have tried to duplicate Super Kit at 38, 39 and 40 tracks to no avail 
My system is a 0-64, a 1 541 . and a 1 702 monitor. The joysticks were 
disconnected. There was nothing else on the system, as I do not own 
any other peripherals. 

According to your note for Super Kit owners on page 13 of the 
Transactor. Vol. 7, Issue 3, November 1986, there seems to be a 
rewrite under way at Prism, to do away with these kinds of problems. 

I would appreciate your suggestions on this problem. Do you accept a 
return of the product, as it is of no use lo me at this stage, or should 1 
wait for a trade-in at a later stage (if you intend lo make Irade-ups to 

the latest version)? 

Roger Deiaille, Ste. Therese, Quebec 

Your problems with Super Kit illustrates some of the difficulties that 
seem inevitably to attend this type of software. Super Kit is fast - 
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blindingiy fast - at both conventional and unconoentional DOS opera- 
tions, and its error copying and scanning are among the most 
sophisticated you 'li find anywhere. Unfortunately, there are some Jobs 
that seem to work retiabfy only on the most perfectly set-up 1 54 1, and 
copying SuperKit itself (for which you should use the Super Nibbter 
module, by the way) is one of them. 



. . .Ihen (alls into SEF39. which is the destination of the BEQ at SEF2-1 
for buffer start = buffer end (i.e. empty} - this then shuts down NMIs, 
which means no further transmission. To maintain service of CTS/ 
DSR line monitoring, it is essential to jump around this code, [ have 
done: 

EF36JWP $FF43 



While the newer 2. version of the program does away with many of 
the problems you mention in the other modules. Prism Software's 
president. James Domengeoux. admits that many users have experi- 
enced difficulty in backing up SuperKit as advised in the manual. 
Prism is currently working on ways around this problem, and we're 
hoping to see even newer updates fairly soon. 



FF43 STA $0297 ;as original 

FF46 RTS ;avoid RSSTAT change 

Clearly $FF43 isn't available to tape users! The $AA (TAX) area at 
$E4B7 to $E4D9 is suitable. Incidentally, if you want to implement 
4800 baud transmission, you will need to put the following: 



Meanwhile, if you have the 1. version and want to upgrade to 2. 0, we 
don ? think you 'tl be disappointed with the quality of Prism 's after-soles 
support to registered users. The 2.0 Super Kit is even more powerful 
and versatile than the first, and seems also to lye more reliable. Again, 
though, you can only expect consistently good results if your drive 
timing and alignment are fairly accurate. 



E500 $37 


;3600 lo 


E501 $00 


;3600 hi 


E502 $02 


;4800 lo 


E503 $00 


;4800 hi 



Squashing C-64 RS232 bugs: What prompted me to write was the 
exchanges on RS232 in Vol. 6, issue 6, Page 11. and a point not 
covered in Lyle Giese's follow-up in Vol 7, Issue 2. Albert Harsch 
cites 'buffer problems' at 1200 and 2400 baud. Examination of the 
Kernal at $EF39 onwards reveals the main f^232 bug in the C64; if 
DSR or CTS disappear, the NMI interrupts are disabled. When these 
signals return to 'OK', the NMls are not restored except by aPRINT*2 
physically executed after these lines return- As a result, x-line output 
will leave the last buffer untransmitted unless: 

a) the code is altered (my preference) 

b) (up to) 256 Ascii nulls are PRINT'2-ed 

c) after a real-time delay, some PRINT*2s are issued 

As the last two are inelegant, and I use an EPROM Kernal, I chose the 
first. This requires modification to both the output code at $EF39 and 
the Cl-OSE routine. Incidentally, while I was remodelling in this area, 
the buffers were shifted to pages $CE,CF, This permits OPENing an 
RS232 channel at any time in a program, without a CLR. (Although 
pages tDE,DF would have been preferable, they do not work in this 
context.) This will facilitate use of serial printers with a variety of 
utilities such as Easy MaiL 

After fixing the 75 baud error in the PAL table, 1 also implemented 
3600 and 4800 baud without any problems with printers. (Inciden- 
tally, the theoretical maximum baud rate for a PAL C64 is about 5000). 
Final teslingshowed^however. that Easy Script and my Kernal did not 
gel along if an RS232 printer was tried. As I have 3 printers, ail RS232, 
this had to be fixed, and turned up the most staggering thing I have 
seen in years - the RS232 transmission from Easy Script uses the 
NTSC baud rate timing table, even on PAL machinesl 

Describing the code for RS232 handling in the C64 as primitive is an 
act of extreme understatement. 



for the PAL table. The original code $E500-$E504 can then be 
relocated at $FFF3 to $FFF7, As Easy Script uses NTSC, this doesn't 
help you there, BUT you can fudge the 4800 into the NTSC table 
($FEC2-SFED4) in place of a rate you don't use, e.g. 134.5, and call it 
up appropriately in Easy Script or whatever program you are using. 

If anyone would wants lo pursue this matter with me, I would 
welcome correspondence at: 94 Grove Road, Lesmurdie 6076, West- 
ern Australia 

Peter Morgan 



TransBloopers 

Low Cost Universal EPROM Programmer 

A couple minor problems have surfaced here. , . nothing thai would 
go unnoticed for long though. 

In the schematic on page 48, pin 14 of the 8255 IC lo the left of the 
diagram shows two pins numbered 14, The GND pin at the bottom 
should be pin 7 (same as the GND pin of U2, the 8255 at the right of 
the diagram). 

There are also two pins numbered Hon the ZIP Socket. The GND pin 
is correct- The other pin 14 should be 15, pin 15 goes lo 16. 17 to 18, 
and 18to19{i.e. add 1 lo each from 14 through 18), 

Thepersonality socket for the 2716 on page 47 shows pin 12 going to 
9. Correct this so that pin 12 goes to pin 21 (3 down from 24). Pin 9 
correctly goes lo pin 20 as shown. 

Thanks to Ghislain Lamolhe or Montreal. QUE- for these corrections, 

Frank J, Hermann of Kitchener. Onl. also notes two little typesetting 
errors in the software- In lines 2760 and 2770, the " should be 
replaced by " ' (ie. null siring). 
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For the record^ the offending code is as follows: 



EF2ELDA #$40 

EF30 BIT 

EF31 LDA #$10 

EF33 ORA $0297 

EF36 STA $0297 ;set bits in RSSTAT 



set DSR missing 

skip 

set CTS missing 



In the program "scrolLobj'. the first loop READs 741 dataelemenls 
to ensure the checksum is correct. The second loop then attempts lo 
write 2745 data elements lo a disk file. Change line 1070 to: 

1070 FOR J = 1 TO 741 : READ X 

Our thanks lo Dave Aulbertsberg, MCAS Kuneohe, Hawaii, for point- 
ing out this error, and our apologies for the slip-up. 
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INet 2000 

"iNel" stands for the "Inleiligenl Network", a service of Telecom Canada 
which is an association of 10 of the country's major telecommunications 
companies. It originally began as a "gateway service" to provide simplified 
access to public databases around North America. For those accessing 
several of the participating databases, only one bil! would be issued by iNel 
summarizing all the online charges, iNet then expanded The service adding 
teieconferencing,electronicmail, user data workspace, editing of retrieved 

information, and boolean searching capabilities. 

Since iNet 2000 belongs to Telecom Canada, access to iNel is done mainly 
through Datapac, another Telecom Canada project, and the main packeE- 
switching network in Canada. You call your nearest Datapac public dial 
port (or node) and enter Ihe call address for the iNet service much like 
entering the call address for any other service accessible from Datapac- 

So why pay iNet to transfer you to another database when you can simply 
go directly there? Remember, Telecom Canada is marketing this service to 
people rather unlike the typical micro-computer enthusiast (ie. "not us"). 
It's the difference between business and pleasure. When you're in it to try 
and make (or save) a buck, you don't care who has the infomialion you 
need, you jusl need it! You also don't care what it costs to get {which is 
obvious by the hourly rates of some iNet affiliated databases). Remember- 
ing several long call addresses that are often a mixture of numbers and 
letters doesn't matter much lo "us", much like "we" probably wouldn't 
care about spending a little time handling several online bills if it meant 
saving money. 

However, probably the most downplayed feature of the service is the 
ability to access it through toll free 1-800 numbers. This isn't ,^urprising 
though. Most of iNet's target market is probably within a local call of a 
Datapac public dial port. But! If you're paying long distance charges to get 
to the nearest dial port, this one feature makes iNet truly attractive. 

To subscribe lo iNet costs $50,00. You get a really nice manual and some 
handy reference cards. After that it's $3.00 per month, plus your time 
while connected to iNet. However, once you pass through the gateway to 
another service, the iNet meter stops ticking, and you pay the regular 
charges of the service you access, plus the Datapac surcharge which even 
local callers pay. When you log off that service, you're back in iNet and the 
clock resumes. iNet charges range from $ 15 per hour in prime time (6am to 
6pm weekdays) to S1L25 per hour outside these times and weekends. 
Once you get lo know the commands for passing in and out of the gateway, 
accessing your favourite online service will probably cost you less than a 
dollar in iNet charges. 

Even though iNet is available in the U.S, through Telenet, the toll-free lines 
only apply to Canada. Ideally, a parallel service is what's needed for 
telecomputing from remote areas in the U.S. !f someone finds one, we'll be 
most pleased to hear about it. 

One other point: iNet, and the databases you can access from iNet, are 
generally of the text based variety. These are services like CompuServe, 
Delphi, The Source, or any database that can be controlled using any 
standard communications program. Systems like Quantum Link and 
Playnet require the use of their own software which usually handles the 
sign-on procedure for you. These programs would need to be "aware" of 
the extra step at the iNel gateway stage. It wouldn't be impossible for Q- 
Unk or Playnet to add this capability to their software, but undl they do, it's 



a situation where your terminal must be compatible with tjoth iNet AND 
their accessible databases. 

In summary, , , if you're into telecomputing for the entertainment value, 
then iNet is probably not for you. But if you live in Canada, and your long 
distance bill makes your online bill look trivial by comparison, iNet 2000 is 
definitely worth looking into. 

CompuServe 

Sometime between writing this article and printing it we'l! be starting 
construction of what we hope will be named "The Commodore MagNet". 
This will be the Display Area we've been referring lo that will host 
information supplied by magazines publishing Commodore related mate- 
rial. 

The section will be listed under CBMNET with the other Commodore 
Forums. Selecting "Commodore MagNet" will bring up a menu of maga- 
zines, of which Transactor will be one. Selecting 'Transactor" will display a 
menu of activities that will be fundamentally the same for all of the 
participating publications. 

Reading articles and ordering subscriptions are two of these functions. 
You'll also be able to download programs related to the articles, however, 
the programs will be stored in a Data Library outside the MagNet area. 

Once this section is working, there wiil be a beta-test period before it goes 
"live". Hopefully by next issue we'll have all the operational details. 

Uploading Time is Fr«el 

When uploading your programs to CompuServe, the clock is turned off! 
CompuServe figures that if you^e generous enough lo share your pro- 
grams with others, they'll reciprocate by suspending the meter while you 
send in your files. 

You might think this would precipitate an awful lot of software in the Data 
Libraries. Well, you^d be right! Since making upload time free, Compu- 
Serve has been literally deluged with programs. Here are a couple tips to 
remember if you're planning to add to the flood. 

CompuServe supports four types of transfer protocols for sending and 
receiving files from their Data Libraries (as explained last issue). However, 
two of them are used more often than the others. "Xmodem" protocol has 
been around a long time and is supported in many terminal programs. In 
fact, just about any of the online services, including many Bulletin Board 
Systems, that offer software to download will support Xmodem transfers. 
The other is "B Protocol". This method was invented by CompuServe to 
include some of the details that were missing in Xmodem, 

CompuServe Filenames and Extensions 

CompuServe lists all files in their data libraries using a filename (1 to 6 
characters max.) followed by a period and a 3 character "extension". The 
filename you enter is up to you. But the extensions are used to designate 
what type of file belongs to Ihe name, and there are a few conventions to be 
aware of, especially when uploading programs. 

If Xmodem protocol is used to upload a program, the extension ",BIN" 
should be entered after the filename. 'MMG" is the abbreviation for an 
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"image" file uploaded wilh B protocol. Following these conventions will 
make life a lot easier for those wfio download your donations. However, 
there are exceptions. 

The Exceptions 

When uploading programs, please follow this convention: 

Uploaded With: Extension 
Xmodem .BIN 

B Protocol .IMG 

Naturally there are other kinds of data besides programs. 

.TXT Generally describes text files. If it's text specific to one brand of 
word processor, the description oi the file will usually say so. 

.IXJC Same as .TXT, only the contents are Documentation, usually for 
another program available nearby. 

.MEM A Memo file. Uncommon, but used to indicate a short .TXT file that 
will probably never need to be "printed on paper" 

.HLP A Help file. Usually describes how to perform the various functions 
on CompuServe 

.CNF A Conference transcript. When a guest speaker comes online for a 
formal conference, a sysop will sometimes record the XO" and 
upload the file for others who missed It. 

.SEQ Describes anything from text files to data intended for use by 
another program 

.ARC An Archived file. .ARC files are files that have been compressed 
using a program called "ARC" by Chris Smeets. ARC not only 
compresses the size of a file, but also allows several files to be 
combined. ARCing large donations means that downloading them 
will take much less time, especially when several (iles are needed 
{such as a program complemented by modules). Use Xmodem to 
download them, but you'll need the ARC program in order to de- 
compress. As ol this printing, ARC220 is the latest version, and is 
available in the High Level Utilities section of CBMPRG. 

Uploading Text 

When uploading files that contain text, it must be sent in true ASCII. Like IF 
or not, CompuServe suppor(s other brands of equipment besides Commo- 
dore, But Commodore is the only one that doesn't use true ASCII, So many 
terminal programs written for Commodore machines include a translation 
from PET3C1I to ASCIL This is often done "on-lhe-fly" during an upload. So 

if you're uploading text to CompuServe that is in PETSCli format, turn on 
the translation switch. If you don't, the upload will appear to be working, 
but a successful download will be impossible. Files that fall into this 
category are PaperClip or Easyscript files saved as SEQs, 

You also need (o send Linefeeds after Carriage Returns during an upload 
Likewise, most programs implement this as an "ON/OFF" switchable 
setting. Although another user will still be able to download this file 
without the Linefeeds, there is another reason. 

You don't have to download text files from CompuServe in order to read 
them. Once in a Data Library, you can use the READ command to display 
the contents of any file. You can READ a program, which may be 
interesting, won't make a lot of sense, and is highly recommended for 
adding up online charges. Or, you can READ the text files. For example, if 
youVe in DLO of CBMPRG: 

READH0W2C0.HLP 

. , ,will display the help file on how to use the Conferencing section. At 300 
baud you could probably read it as fast as it's displayed. Bui at 1200 you 
might want to open a capture buffer and read it later. However, depending 



on your particular software, the absence of Linefeed characters may cause 
each line of text to print over lop of the last. Once again, turn Linefeeds 
(and true ASCII) on when uploading text files. 

So even if you have none of the necessary protocols for downloading, you 
can still obtain text from the DLs. Depending on the quality of your 
connection you may experience transmission errors. So if a perfect copy is 
necessary, you may need to use a downloading procedure. 

Downloading 

First of all, B Protocol and Xmodem have only very slight differences. In 
fact, you can download a program using Xmodem (hat's been uploaded 
with 'h\ or vice versa. But if you do, there are some "post-download" 
adjustments you'll need to perform. Here are the four possible situations. 

Downloading .BIN Piles with Xmodem 

With Xmodem, programs are transferred in blocks of 128 bytes each. 
However, mosJ programs won't be evenly divisible by 1 28 bytes. So the last 
block is padded to make it fill out to 1 28. The padding character is a CTRLr 
z, or CHRS(26). Usually this won't affect the operation of the program. If it 
was a text file and you load it into your wordprocessor you'll see the 
characters at the end and just delete them. But if it's a BASIC program, it 
means that the variable table will start iust a little bit higher in memory. 
Usually this won't matter. But sometimes it could l)e a n on -relocatable 
machine code program or something equally as sensitive. The extra bytes 
at the end might cause the program to over-shoot its intended memory 
area and write into CIA registers or some other program. 

There is a program for dealing wilh files that are sensitive to the padding in 
the last block. "XSTR1P,BIN" Is in Data Library 8 of the CBMCOM Forum, 
All it does is ask you for a filename and proceed to strip the CTRL z's off the 
end of the file. This is done off-line using the file as downloaded on your 
drive. 

Downloading .IMG Files with B Prolocol 

Variable block size is one reason B Protocol was invented. !f B Protocol is 
used to download a JMG file (ie. a file uploaded with B Protocol), you 
should have no problems. 

Another reason B was invented was to deal with the different types a files 
that exist on disk such as PRG and SEQ. This information is contained in a 
6 byte header that precedes the remainder of the data. Part of the header Is 
used to indicate that B Protocol is in effect. So when using B to download a 
.IMG file, the transfer program will detect that the file was uploaded with B, 
and the first 6 bytes will not be written to your disk drive. 

Downloading JMG with Xmodem 

You may not have B Protocol, but you can still download ,1MG files with 
Xmodem. However, those first 6 bytes will be received as valid data and get 
written to your disk. If it's a program you're downloading, the entire 
program will be "skewed" by 6 bytes when you LOAD it. This won't do. 
Therefore, another post-download utility was written called "BIN1MG.BIN" 
and it's also in DL8 of the CBMCOM Forum, All it does is "eat" the first 6 
bytes off the file, and write the rest back oul. 

If you're using CBTerm, this is done automatically. Other authors of 
terminal programs are also starting to add this feature. The easiest way to 
check if a BIN1MG,B1N adjustment is necessary is to LOAD and RUN the 
program. If it's a BASIC program and you get a Syntax Error in some 
strange line number, it needs the 6 byte header removed. 

Downloading .BIN wilh B Protocol 

B Protocol "looks" for that 6 byte header. If it's not there, B won't discard 
those bytes. They will get written to disk and the prc^ram will simply 
proceed with the download much like Xmodem would. You won't need to 
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worry about the padding characters al the end 
either. However, the file type will default to 
SEQ on youT Commodore drive. 

There are two ways to remedy this. When the 
program asks you for a filename to use on 
your disk, fotlow with ".?". This will force a 
PRG type file. If you forget and you end up 
with a program that's locked inside an SEQ 
file, simply add ",S*' to your filename when 
you LOAD It. This will avoid a ?Fiie Type 
Mismatch error. Once the program is loaded, 
you can Scratch the old file, and SAVE a new 
one- 



Choose Your Weapons Carefully 

You may have noticed the difference in con- 
nect time charges for 300 and 1200 baud. 
Choosingone or the other for certain tasks can 
help make your online fun more economical. 
You can'l change "mid-stream", so this deci- 
sion must tie made before you sign-on 

1200 baud is more expensive, but if you're 
signing on with the intention of downloading 
several programs, 1200 will often save you 
money in the long run. 

However, it's pretty hard to read text flying by 
al 120 characters per second. It's also pretty 
tough to type that fast. So for doing things like 
reading or leaving messages, browsing 
through DLs, or Conferencing, use 300 baud 
to save yourself a little money. 



CIS Directory 

The following list is a summary of all the 
different sections on CompuServe along with 
their quick reference words - especially 
handy for "touring". A "S" indicates an extra 
charge (or the service, and (E) indicates an 
Executive Information Service option. 



Next Issue 

Color Mail is one oJ CompuServe's most ad- 
vanced offerings. With the Color Mail package 
you can create animated greeting cards to 
send to others. You don't need the Color Mail 
program to receive them - an off-line decoder 
letsyou see your animated mail. 



l-800-noppys 

AAMSI Communications 

ABC Worldwide Ho [el Guide 

AGOG 

ADCIS Forum 

AESNET 

Al EXPERT Forum 

Al EXPERT Magazine 

AMS/OIL Dealer 

AOPA Forum (*) 

AP Dataslream 

AP Videotex, Business 

AP Videoiex, Enteilainmenr 

AP Videotex, Politics 

AP Vfdeolex, Weather 

APVideotex, World News 

ASI Moniror 

ASI Service Difficulty Reports 

Academic Amer. Ency (*) 

Access (PuWic File Area) 

Access Rione Numbers 

Adventures in Travel 

Agri-Corn modiiies 

Air France 

Aircraft 

Alaska Teleshopper 

American Airlines 

American Collie of OB/GY N 

American Express 

American Expre^R) ADVANCE 

American Tire Buyers 

Ameropa Travel 

Amiga Forum 

Antic Magazine 

Apparel Concepts for Men 

Apple User Groups Forum 

Ashion-Tale Forum 

Ash lon-TaTe Support Library 

Ask Mi. Fed Forum {*) 

Associated Press 

Astrolf^ 

Asiionomy Forum 

Atari 16 Bil Forum 

Atari B BiT Forum 

Atari Developers Forum 

Athlete's Outfitters 

Auto Racing Korum 

Autodesk Software Forum 

Aviaiion Forum (AVSIG) 

Aviation Menu 

Aviation Safety Institute 

Bacchus Wine Forum 

Baffle Word Game 

Banking Services 

Banshii 

Bantam Books 

Beneficial National BdJik 

Biorhytfims 

Birkenstock Footwear 

Black Dragon 

Bloom ingdale's By Mail 

Bunds Listing {%) 

Borland international 

BraiiJe 

Broadcast Professionals Forum 

Buick Magazine 

Business Incorporating Guide 

CB interest Group 

CB Pictures 

CB Society 

CBS/ Fox Video 

CP/M (CPM) Users Group 

CW Communications 

Calculate Net Worth 

Careers 

Carolina Health & Fitness 

Casino 

Castle Telengard Game 

CaslleQuest 

Casual Tee's 

Changing Your Password 

Changing Your Terminal Type 

Checkbook balancer 

Chevy Showroom 

Christian Book Store 

Citibank 

Citizens Band Simulator 

Classic Quotes 

Coffee Emporium 

College Press Service 

Colonial National Bank USA 

Color Graphics 



DSK 
AAM 

ABC 

ACOG 

ADCL5 

AESNET 

AIE-IOO 

AlE 

AMS 

AOPA 

sro-1005 

APV 
APV 
APV 
APV 

AFV 

ASI- 10 

ASI-12 

ENCYCLOPEDIA 

ACCESS 

mosE 

ATT 

AO 

AF 

AVIATION 

AK 

AA 

ACO 

AXM 

AXP 

ATB 

AT 

AMIGAFOKUM 

ANTIC 

AFC 

APPUG 

ASHFORUM 

ASHTON 

MM5-20 

APN 

GAM-45 

ASTROFORUM 

ATARI 16 

ATARI8 

ATARIDEV 

ATH 

RACI^G 

ADESK 

AVSIG 

AVIATION 

ASI 

W1NEFORUM 

BAFFLE 

BANKING 

BANSHI 

BB 

BNB 

BIORHYTHMS 

BF 

BLACKDRAC^N 

BL 

MMM-41 

BORLAND 

BRAILLE 

BPFORUM 

BU 

INC 

CBIG 

CBPDC 

CUPCAKE 

CF 

CPMSIG 

CW 

HOM-16 

WS 

HF 

CASINO 

CASTLE 

CQLEST 

CA 

PASSWORD 

TERMINAL 

CHECKBOOK 

CHV 

Dll 

CI 

CB-10 

TMC-7 

COF 

CPS 

crs 

CIS-91 



Color Mail Database 


COLORMAIL 


Color Mail Exchange Forum 


HALLMARK 


Comic Book Forum 


COMIC 


Command Decision 


COMDEC 



Commodities 

Commodity Pricing (S) 

Commodity Symbol Lookup 

Commodore Arts and Games Forum 

Commodore Communications Forum 

Commodore Pritgramming Forum 

Commodore Service Forum 

Commodore Users ^etwork 

Comp-U-Store 

Compu-Game 

CompuServe Billing Information 

CompuServe Command Summary 

CompuServe Logon Ins! ructions 

CompuServe Node Abbreviations 

CompuServe Rates 

CompuServe Tour 

CompuServe's Product Ordering 

CompuServe's Subieci Index 

CompuServe's software exchange 

Computer Art Forum 

Computer Club Forum 

Computer Consultant's Forum 

Computer Express 

Computer Language Magazine 

Computer Sports Woricl 

Computers/AcT ri x / Eagle /T\ mex 

Computing Tutorials 

Conroy-Lapointe 

Consumer Electronics Forum 

Cooks Online Forum 

Cosmic Concepts 

Current Day Quotes (1) 

DEC PC FoTum 

DISCLOSURE II (tE) 

DR. JOB 

DataPac Logon Instructions 

Department of State 

Detailed Issue Examination (t) 

Digital Equipment Corporation 

Digital Research Forum 

Digital Research Inc. 

Directory Of Public Officials 

Disabilities Forum 

Discount Computers 

Discover Orlando 

Dividends and Splits (S) 

Donoghue OTgani?atlon 

Dow Jones A Co 

Download Pricing Data 

Dr Df*b's Journal 

Dr DolA'sJoumal Forum 

EF Hut Ion 

EMI Aviation Services (S) 

EMI PRO-PLA^i Registration 

EMI RNAV/LORAN Flight Plan (I) 

EMI Radar Map f»} 

EMI User Route Right Plan {*) 

EMl VOR/Airway Fiigh! Plan {%) 

EMI Weather Brtetmg(S| 

EPIE Database 

EPIE Forum 

Easy Flex 

EasyPlex Electroriit Mail 

Ebsco Magazine Entree 

Ecopress Periodicals 

EdVEf^T II Seminar Directory 

Educational Research Forum 

Educational Travel Connection 

Educators Forum 

Electronic Bounce Back 

Electronic Gadget Store 

Electronic Gourmet (S) 

Elect ronic's Mart 

Epson Forum 

Equitable Life 

Executive Engravers 

Executive Mew^ Service (IE) 

Elxecutive Option 

Expert Investor/MQuote 11 (*} 

Express Music CDs 

PBi Ten Most Wanted List 

Family Computing Electronic Ed 

Family Computing Forum 

Feedback to CompuServe 

Fifth Avenue Shopper 

Financial Documentation 

Financial File Tranter 

Financial Forecasts 



COMMODITIES 

CPRICE 

CSYMBOL 

CBMART 

CBMCOM 

CBMPRG 

CBM-2000 

CBMNET 

CLIS 

CPG 

BILUIHG 

COMMAND 

LOGON 

NODES 

RATES 

TOUR 

ORDER 

TOPIC 

SOFTEX 

ARTSEG 

CLUB 

CONSULT 

CE 

CLM 

CSW 

CLUB 

PCS-12! 

CL 

CEFORUM 

COOK 

CC 

QQUOTE 

DECPC 

DISCLOSURE 

DRJ 

LOG-41 

STATE 

MCUNCT 

DRFORUM 

DRI 

OFnCIALS 

DISABILITIES 

DSC 

ORLANDO 

DtVlDEf^DS 

DON 

DJ 

MMM-67 

DDJ 

DDJFORUM 

EF 

EMI 

PROPLAN 

AERONAV 

AERORAD 

AEROROUTE] 

AEROVOR 

AEROBRIEF 

En 

EPIEFORUM 

MCIMAIL 

EASYPLEX 

ME 

ECO 

EOVENT 

EDRESEARCH 

EDTRAVEL 

EDFORUM 

EBB 

EGS 

GOURMET 

ELM 

EPSON 

EL 

EX 

ENS 

EXECUTIVE 

MMM-19 

EMC 

TEN 

FAM 

FAMFORUM 

FEEDBACK 

FTH 

IQH 

RLTRN 

EARNINGS 



ITwIkanMictar 



W 
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Financial Surcharge LisT 


MMM''23 


Monthly Charges 


MONIH 


Shop-at-home 


SHO 




Florida Fonim 


FLORIDA 


Morrow's Nut House 


NUT 


Simon David 


SIM 




Rorida Fruit Shippers 


FFS 


Mortgage Calculator 


HOM-17 


Single Issue Price History (S) 


PRICES 




Flying 


AVIATION 


Movie Reviewetles 


MOVIES 


Soap Opera Summaries 


SOAPS 




Rying Buffalo 


BUFFALO 


MuUi Issue Price History ($} 


QSHFFT 


Social Security Administration 


SSA 




Football 


FOOIBAI 1 


MuJti-Player Garnes Forum 


MPGAMFS 


Society of Plastics 1 ndustry 


5P1 




Foreian L^nauaqe Forum 


FLEFO 


Music Alley Online 


MAO 


Software Discounters of Amer 


SPA 




Fori Worth Computer Chronicles 


FWCC 


Music Forum 


MUSIC FORUM 


SofUvar^ Publishing Forum 


5PCF0RUM 




Forth Forum/ Cieative Solutions 


FORTH 


MusJC Video 


MUS 


Software Publishing Online 


SPC 




Forurns 


FORUMS 


NWS Aviation Weather (S) 


AWX 


Southeast Bank 


SEB 




Futures Focus Stock Index Hus 


FFP 


NWS Weather 


WEA 


Space Forum 


SPACEFORUM 




Gamers Forum 


GAMERS 


Naked Eye Astronomy 


NAKFRFYE 


SpaceWAR 


SPACEWAR 




GobaUnk 


GLO 


National Bulletin Board 


BULLETIN 


Sports Forum 


HOM-llO 




Cioll 


GOLF 


National Issues Forum 


ISSriFSFORUM 


Slandard&Poor'sd) 


SAP 




Good Earth Fonim 


GOODEARTH 


National Tourism Citilog 


CUIFS 


Standard and Poor's (S| 


SAP 




Government Publicalions 


GPO 


Nationwide Catalog Shopper 


NCS 


State Capitol Quiz 


'IMC-44 




HAMNET 


HAMNbl 


Neighborhood Demographics (S) 


NEIGHBOR 


Stevens Business Reports 


SBR 




Hallmark Color Mail 


COLORMAIL 


Nei man -Marcus 


NM 


Students' Forum 


STUFO 




HamNet Online 


HAM 


New Adventure 


NEW ADVENT 


Subscribers Directory 


USERS 




Handicapped Users' Database 


HLID 


New Car Showroom 


NEWCAR 


Sun Ufe Group 


SLG 




Hangman 


HANGMAN 


News-A-Tron 


NAT 


Sun N Sand Vacations 


SNS 




Hardware Forums 


PCS-20 


Newsnet 


NN 


Sun land Camera 


SUN 




Kawmian hie 


HI 


Noload Mutual Funds Directory 


NOLOAD 


SuperSite (SE) 


DEMOGRAPHIES 


Health FoTum 


HCM-6fiO 


OB-GYN 


OBG 


TELPLT{S) 


MIHaI'e' 




HealthCom 


HCM 


OMNI FORUM 


OMNIFORCM 


THE ELECTRONIC GAMER(tm) 


EGAMER 




Health Net 


HNT 


OMNI Online 


OMNI 


TRS-SOModellOO Forum 


M100SIG 




Heath Users Group 


HEATHllSERS 


OP-NET Forum 


SFP-4 


TRS-80 Professional Forum 


TR580PRO 




Hewlett Packard Forum 


HP 


059 forum 


OSd 


TYMNET logon instructions 


LOG-ll 




Historical Pricing 


PRICFS 


Otficiai Airline Guide EE 


OAG 


Tandy Business Users Group 


TCBUG 




Hobbtl Hola / Wyandotte Wines 


HH 


Officiai Airline Guides 


DA 


Tant^ Color Computer Forum 


COCO 




Hollywood Hotline (Sj 


HOI 1 YWOOD 


Ohio Scientific Forum 


OSIFORUM 


Tandy Newsletter 


IRS 




Hollywood Hotline Art 


HHA 


Online Computer Connection 


COMPUSERVE 


TeleData- Guide 


TDG 




Kon>e Banking 


BANKING 


Online Today 


0N1INE 


Telecommunications Forum 


TELECOMM 




Human Sexuality 


HUMAN 


Options Profi e 


PRICE 


Telenet Logon Instructions 


LOG-20 




Huntington National Bank 


HNB 


Orch-90 MusLC Forum 


ORCH-90 


Texas Instruments Forum 


TIFORUM 




|/B/E:/S(SE) 


IBFS 


Original Adventure 


ORADVENT 


Texas Instruments News 


TINEWS 




IBES Earnings Estimate Reports 


IBFS 


Outdoor Forum 


OUTDOORFORUM 


Tent Editors 


PCS-UI 




IBM Commun tea lions Forum 


IBMCOM 


PDP-ll Forum 


PDPII 


The Business Wire 


TBW 




IBM Hardware Forum 


IBMHW 


PLASTISERV Piastics Inform 


SFP-I3 


The College Board 


TCB 




IBM Junior Forum 


IBMJR 


PR Link 


PRUMK 


The Electronic MALL 


MALL 




IBM New Users Forum 


IBMNEW 


PR and Marketing Forum 


PR5JG 


Tlie Game Getters, Inc, 


GG 




IBM Software Fomm 


IBMSW 


PSFS Direct Line Banking 


PSFS 


Tlie Grower's Store 


SPG 




IBM Users Network 


IBMNET 


Pan Am Travel Guide 


PAN AM 


The Heath Co 


HTH 




IIAA 


INS 


PaperChase-MEDLlNE 


PAPERCHASE 


The McGraw-Hill Book Company 


MH 




iQuest 


IQUFST 


Pascal Forum 


PCS-55 


The Multiple Choice 


TMC 




Incue Online 


INCUE 


Personal Computing 


COMPUTERS 


The National Satirist 


KCS 




Independent Insurance 


INS 


Personal File Area 


niFS 


The Tandy Users Network 


TANDYNET 




Information USA 


lUS 


Per^nal Menu 


MENU 


The Whiz Quiz 


WHIZ 




Intelligence Test 


TMC-32 


Personality Profile 


TMC-17 


The World of Lotus 


LOTUS 




Internal Revenue Services 


IRS 


Peterson's College Guide 


PETEB50N*S 


Ticker RetnevaJ (SE) 


TICKER 




International "^ur Wholesalers 


RF 


Pictures Support Forum 


PICS 


Ticker and Cusip Lookup (SE) 


TICKER 




Invesiors Forum 


INVFORUM 


Plastics Associations 


DIR 


nifflny & Co. 


TIF 




Island of Kesmai 


ISLAND 


Plastics Buyer's Guides 


BUY 


Topgar Tobaccos 


TG 




Journalism Forum 


JFORUM 


Plastics Directories 


DIR 


Touch-Type Tutor 


TMC 




Kaypro Users Forum 


KAYPRO 


Plastics Government Agencies 


DIR 


Tour the West 


WEST 




LDOS/TRSDOS6 Users Group 


inos 


Plastics Legislation 


sn 


Travel SIG 


TRAVSIG 




LOGO Forum 


LOGOFORUM 


plastics Materials 


PRO 


Travel Vision 


TRV 




Legal Forum 


LAWSIG 


Plastics Product Guide 


PRO 


Traveler's Challenge 


ETC-81 




Lincoln Manor Baskets 


LM 


Plastics Regulatory Update 


REG 


Travelshopper 


TWA 




Literary Forum 


LTTFORUM 


Plastics Statistics 


SPI 


Tropical Fish Forum 


nSHNET 




Living Videoi ex f Forum 


LVIhORUM 


Plastics Suppliers 


BUY 


US Entrepreneurs' Network 


USEN 




Lobster Market 


SEA 


Portfolio Valuation ($) 


PORT 


USA TODAY 


US 




Logical Systems Inc Forum 


PCS-49 


PowerSoft's XTRA-80 


PCS-56 


United Management 


UMC 




MAUG(tm) 


MAUG 


Pricing Staiisiics(£) 


STAlb 


United American Bank 


H0M-1S2 




MAUG(tm) Apple II & Ell Forum 


APPIF 


Programmers Forum 


PROGSIG 


VAX Forum 


VAXSIG 




MAUQtm) Apples Online 


AOL 


Public Access 


ACCESS 


VIDPLT{S) 


MMM'47 




MAUG(tm) Ma': Developer's Forum 


MACDEV 


Question & Answer 


QUFSTIONS 


VIDTEX Information 


VIDTEX 




MAUGjlmJ Macintosh Users Group 


MACUS 


Quick Quote (S) 


QQUOIE 


VIDTEX Weather Maps 


MAPS 




MEDSIG 


MEEfSIG 


Quick Reference Lis! 


QUICK 


Vacuum Advance 


vrs 




MMS/Daily Comment (£) 


DC 


Quick Way 


QWKWAY 


Value Line Financials 


MMM-IO 




MMS/Fedwatch Newsletter (*) 


FW 


RCA Direct Marketing 


RC 


VaJue Line Information 


VLINFO 




MMS/Market Briefings (&) 


MAR 


FUpaporl Diamond Broker 


RDC 


Value Line Projections (S) 


MMM-7 




MUSUS Forum 


MUSUS 


Rare Disease Database 


RDB 


Vermont Tourism 


VERMONT 




Magic Castle Video 


MV 


Record World 


RW 


Videolog Electronics 


VL 




Market Highlights (S) 


MMM-46 


Religion Forum 


HOM-33 


Visa Advisors 


VISA 




Mary'Mac Industries. Inc. 


MM 


Return Analysis (IE) 


RETURN 


Vita Menagerie 


VM 




Max Ule Discount Brokerage 


MU 


Rin Robyn Pool & Patio 


RR 


WITSIG 


wrrsiG 




Max Ule's Mergersource 


TKR 


RockNet 


ROCK 


Walden books 


WB 




Max Ule's Tickerscreen 


TKR 


Rocky Mountain Connections 


ROCKIES 


Walter Knoll Rorisl 


WK 




MegaWars I 


MEGAI 


SBENET 


SBENtI 


Wayside Systems 


ws 




MegaWars 1 Pictures 


MW1P1C 


SHOWBIZ Qui^ 


SHOWBIZ 


West Coast Travel 


WESTCOAST 




MegiWars III 


MEGAUI 


Safely net Forum 


SAFETY 


What's New 


NEW 




Mercury House 


MER 


Sailing Forum 


SAIUNG 


What's New in Travel 


WNT 




MicroPro Forum 


MICROPRO 


Savings Scan 


SAV 


Whole Earth Software Forum 


WHOI FEARTH 




MicfoQuote (») 


MQUOTE 


Science Fiction/ Fantasy 


SCI 


Woodstock Leather 


BAG 




Microsearch Reference Library 


MSH 


Science Trivia Quiz 


SCrTRIVIA 


Word Scramble 


SCRAMBLE 




Microsoft Forum 


MSOFT 


Science/Malh Education Forum 


SCIENCE 


Working-From-Horrw Forum 


WORK 




Military Veterans Services 


VET 


Scott Adams' Games 


ADAMS 


World of Computers 


woe 




Milkins Jewelers 


MJ 


Sea WAR 


5EAWAB 


World-Wide Investment Systems 


REAL ESTATE 




Minutiae Challenge 


MINUIIAE 


Sears, Roebuck & Co. 


SR 


Worldwide Property Guide 


wwx 




Misco Computer Supplies 


MO 


Securities Screening (IE) 


SCREEN 


Writers and Editors Forum 


WESIG 




Model Aviation Forum 


MODELNET 


Shareholders Freebies 


FRE 


Xerax Direct Marketing 


XDM 




Money Market Services 


MMS 


Shawmui Bank of Boston 


SHW 


You Guessed It' 


YGl 





1^ Th^Twrwodor 
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An Introduction to 
Machine Language Programming on the Amiga 

Rick Morris, Burnaby, British Columbia 



After purchasing my Amiga and ogling some demo programs, I 
decided it was time to start writing software myself. 1 had 
bought (he developer's kit, and included in it was plenty of 
documentation on how to use the various system routines and 
libraries. Unfortunately, the examples were all in V. a lan- 
guage I did not know, learning C and Ihe Amiga environment 
proved to difficult, so I switched languages to Assembler, 
something I have had some experience with. 

The program that follows is a demonstration of how to access 
system rouhnes with Assembler. In itself it doesn't do much, 
and is not a marvelous example of programming, but it pro- 
vides basic text input-output and forms the basis of a Com- 
mand Line Interface I am writing, taking advantage of the 
Function keys and Menus. The program sections are num- 
bered in the right-hand margin, and I wiil refer to the sections 
by number. Further. I will not go into great detail about the 
specifics of each system routine, instead I refer you to the 
AmigaDOS Developer's Manual. 

Section 1 is System Equates, and most of them are found in the 
assembler INCLUDE files, I find it best to put them right in the 
program, since a considerable amount of time is taken up when 
you include any files. If you must use the include files. I surest 
you at least strip the comments out of them. Alternately, you 
can assemble the include files with the -e option, and include 
the resultant file as you would any other include file. This 
method saves the time the assembler normally takes to expand 
the regular include files. 

Section 2 tells the assembler that these "xrefed labels will be 
resolved at link lime, and are found in the ''amiga.lib" file. 

Section 3 is a Macro that saves me from typing the dreaded 
LVO each time I want to use one ol the system calls. 

Section 4 is the start of the program. I call the beginning of the 

program main from habit, and if you link in "Astartup.obj" 

as well as "amiga.lib" when you ALink the object code, then a 
routine will be included that allows your program to be run 
from either CLI or WorkBench, and the label ^main must be at 
the start of your code. 



Here is where we use our first call to the system routines, the 
call OpenLibrary(a6), A short discussion of the way the Intui- 
tion is set up is in order. 

There are 2 basic types of system calls. Exec routines and 
Libraries. All of the routines are accessed through jump tables. 
You load the address of the beginning of the jump table into 
address register a6, information required by the routine in the 

other registers, and then you JSR LVO Rout ine(a6). The 

routine performs the asked-for function and returns a value, 
which may be an error code that you must test for. Our 

LVOOpenLibrary (or any other system call) is turned into an 

offset at ALink time, when you link with amiga.lib. For exam- 
ple, the Assembler syntax JSR _LV00penLibrary(a6) be- 
comes, after linking, JSR $FFFE68(a6). 

The starting address of the Exec jump table is contained in 
Memory Location $000004, AbsExecBase, the only unchang- 
ing memory location in the machine. This jump table contains 
system routines, such as OpenLibrary. AIlocMem, and all of the 
routines found in the Exec/doc section of the Rom Kernal 
ManuaL Each time you use one of these routines you must 
have the pointer you saved from Location $000004 in address 
register 6, 

The next level of routines dealt with in the example is Library 

routines. We call OpenLibrary to open the "dos.library" in 
order to use dos routines such as Read and Write. They are 
used in the same way that system routines are used. Our call to 
OpenLibrary returned the address of the dos library jump table, 
which we then store for later use. Note that zero may be 
returned indicating an error, and we must test for this. Other 
Hbraries, which may be disk-based and loaded into memory 
only when opened, include the Translator, the Font library, and 
the Math library. These libraries are used in the same way as 
the Dos library: you call OpenLibrary with a pointer to the 
name of the library, then use the pointer to the jump table 
returned. 

Section 5 uses one of the DOS routines to open a window, in 
this case RAW:, This window is actually a file that does not pre- 
process keystrokes, so we can get all keys, including cursor 
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keys and function keys. You use the same process to open disk 
files, and if the file type is MODE^NEWFILE, a new disk file is 
opened for you to write to. 

The parameter returned from Open is the 'handle' of the file, 
and is one of the parameters we in turn pass to Read and Write. 

The 'lst,l dO" instruction used here may appear redundant, and 
in fad is if we re-arrange the instructions so that the 'move.l 
dO,handle' comes before the "ist.l dO' instruction, but illustrates 
a point. The flags are not necessarily set upon return from a 
system call, and you must explicitly lest results yourself. 

Sections 6 and 7 are housekeeping for pointers and printing a 
'Hello" to the window we have just opened. 

Section 8 is the logic of our program. It gets a keystroke, and 
decides upon appropriate action. An 'escape" key ends the 
program, a 'return^ executes the CLI command just typed in. 
and any other key is echoed to the window. 

Section 9 gets keys from our window. The WaitForChar routine 
will wail for 500 microseconds, or until a key is pressed, and 
return for no key, -1 for a key pressed. When -1 is returned, 
we Read the key into our buffer. 

Once again, we seem to have a redundant routine. We could 
just as easily have used Read, and let it wait for us until a key 
was pressedr The reason we use WaitForChar is that this the 
Amiga is a multitasking machine, and if no input is coming our 
way, the WaitForChar allows the system to put our task to sleep 
and service other routines, then wakes us up when a key is 
pressed. It is always a good idea to let go of system resources 
when you do not need them. 

Section 1 prints the last key pressed- Notice that we put dO on 
the stack and get it back before exiting the routine. Data 
registers and 1 , and Address registers and 1 are scratch to all 
system routines, and all other registers will be preserved. Or at 
least Commodore has stated that they will be when Kickstart 
1.2 arrives. 

Section 1 1 executes any command we type in before a 'return'. 
This is almost ridiculously simple: we put the command string 
address in dl (not al , strange but true), zero out d2 to say there 
is only one command, put our File Handle in d3, and call 
Execute - Dos does the rest. Any command that can be typed in 
at the CLI prompt can be used, and the results will be sent to 
our window. 

Section 12 is called by Section 7, and prints our "Hello* to the 
newly opened window. Note that since we are using a RAW: 
window, we must include line feeds (*10) in our message 
string. 



Section 13 closes our window, then thedos library. You should 
always close any resource you open. This will give back the 
memory the system reserved for you when you opened it, and 
in the case of disk-based libraries, will allow the ftAM used by 
the library to be reclaimed. 

Section 14 defines some strings used elsewhere in the program. 

Section 15 also defines storage, but uninitialized. The "section 
bss* directive tells the assembler we need this amount of 
storage, but it is not included in the assembly. At load time, the 
system automatically sets aside this amount of free storage for 
us. rather than loading in a bunch of blank bytes. 

I hope this example is helpful in starting others on Amiga 
assembler programming, I have found that C Structures make 
much more sense as ML data tables, and the system routines 
available are quite easy to use and very powerful. And, of 
course, the 68000 processor has a wonderful variety of instruc- 
tions and addressing modes available. 

The assembly starts here. 



■ some system equates 
AbsExecBase eqj$4 

timeout equ$500 

rtn equ$d 

esc equ$1b 

MODe_NEWRLE equ1006 



*AbsExecBase (1) 

•how long we wait for input 

■ascii carriage return 

-ascii escape key 

•file mode to create a new file 



xref __LVOO pen Library 

xref _LVOCIoseLibrary 

xref _LV00pen 

xref „LVORGad 

xref_LVOWrite 

)(ret_LVOWaitForChaf 

xret_LVOExecute 

xref_„LVOClose 

xret_LVOlnput 

xfef_LVOOulpul 



(2) 



call 



MACRO 

jsr _LV0\1 

ENDM 



•a macro to save typing (3) 



•open DOS 

main moveJ AbsExecBase,a6 *potnter to exec 



(4) 



move! a6,execbase 

lea dosname(pc).a1 

moveq #0,d0 

call OpenLibrary(a6) 

move.l dO,dosbase 

beq close 



* and store it 
•pointer lodos.iibrary 
•version no. 
'Open 

•savedosbase 
•library didn't open 



'Open the console device 

lea conname(pc),a1 'name in dl? 
move.l al ,d1 •move address to dl 



(5) 



llMlhmioclor 
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move.] 


#MODE NEWFLE,d2 -file type is newtile 


movel 


dosbase,a6 


*get dosbase 


cal 


Open(a6) 


♦open console 


tstJ 


dO 


•check error 


beq 


close2 




move.l 


dO.handle 





'initialize the var tables 

lea buffer, al 
move.l a1,bufptr 

'print \he welcome message 
jsr mess 

• the start of the routines 

forever bsr key 

cmp.b #esc,dO 

beq closel 

bsr print 

cmp.b #rln,dO 

beq docmd 

addi.l #1,butptr 

bra forever 

•get a key without testing it 



key 



move. 

move.t 

move J 

call 

tstJ 

beq 



move J 
move J 
move.l 
moveJ 
call 
move, I 
movab 
rts 



handle, d1 

#timeout,d2 

dosbase, a6 

WailForChar(a6) 

dO 

key 

handle.dl 

bufptr,d2 

#1,d3 

dosbase, a6 

Read(a6) 

bufptr.al 

(a1),dO 



•print the last key pressed 

print move,l dO,-(sp) 

move.l handle,d1 

move J bufplr,d2 

moveJ #1,d3 

move.l dosbase,a6 

call Write(a6) 

move.] (sp)+ ,dO 
rts 



•execute a command 

docmd moveJ bufptr.al 

move.b #10,(a1) 

jsr print 

move-l butprr,a1 



(6) 



■initialize the buffer 
• pointer 



(7) 



•print a welcome message 

(8) 
•get a key 

*is it the escape key? 
•exit 

•pnnt the character 
•isitac/r? 

* execute the command 
•increment the buffer pointer 
•continue the loop 

(9) 
•handle for the console 

•timeout value 

•get the library pointer 

•any keys in the input stream? 

• no keys is 

•wait for a key press 

•handle for the console 
•load buffer pointer 
•read one character 

•do the read function 
•restore pointer 
•return char in dO 



move.l 

moveq.l 

move.b 

lea 

move. 

move, 

move.l 

call 

lea 

move.l 

bra 



a1,d1 

#0,d2 ■ 

d2,(a1} 

buffer, a 1 

a1,dl 

handle,d3 

dosbase>a6 

Execute(a6) 

buffer.al 

a1 ,bufptf 

forever 



•and put into d1 
•inhandleiszero 
•zero over c/r 
•get the buffer address 

• put it in d1 
■output handle 
•get the library 
'Execute the cmd 
•timeto reset the buffer 

• point to start of buffer 



• the welcome message 



mess 



(12) 



lea 


message(pc).a1 


•get the message pointer 


move.l 


a1,d2 


•put it in d2 


move.l 


handle.dl 


•our console handle 


move.! 


#77,d3 


•no, ofchafacters 


nove.l 


dosbase, a6 


•get dosbase 


call 


Wr[te(a6) 


•call system write routine 


rts 










(10) 



•exit program 

cfosel move, 
move.l 
call 

close2 move.l 
move, 
call 

close rts 

•library defines 

dosname dc.b 
cnop 

conname dc.b 
cnop 

message deb 
dc.b 
dab 
cnop 



(13) 



handle.dl 

dosbase,a6 

Close{a6) 

dosbase. a 1 

execbase,a6 

CloseLibrary(a6) 



• our console is open, 

• so we must close it 
•close the file 

• dosJibrary isopen, 

• so we close it 
•close dosJibrary 

•return to cli 



(14) 



'dos.1ibrary\0 

0,2 

'raw:0/0/640/200/ASM Demo',0 

0,2 

'ASM Demo by Rick Morris',13,10 

'Copyright1986\13,10 

'Permission to copy but not to seir,13,10,0 

0.2 



•remember dO is scratch! 

•console handle 

■ register usage 

•one character to write 

•write one character 
•gel dO back 



section 



vars.bss 



(15) 



(11) 



•get the buffer pointer 
•a line teed character 
• print it 
•gel the buffer pointer 



buffer dsJ 


20 


• buffer, 80 bytes 


bufptr dsJ 


1 


•current buffer pointer 


handle ds.l 


1 


•console fi e read handle 


dosbase ds. 


1 


•dos library pointer 


execbaseds.l 


1 


• AbsExecBase pointer 



end 
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Amiga Programming Concepts 

by Chris Zamara and Nick Sullivan 



The Amiga is a complex machine, 
but programming it can be easier than you might expect 



Part 1 : Fundamentals 



In this, the first of a series of articles on programming the 
Amiga, we are going to try to overcome some of the common 
obstacles that discourage many would-be Amiga program- 
mers. Mostly well talk about programming in the C language, 
with lesser coverage of 68000 Assembly language. We will not 
attempt to teach you how to program in C or assembler - our 
feeling is that the best place to learn a language is a good 
textbook - but merely how to program the Amiga using one of 
these languages as a tool. Even if C or assembler are not your 
primary interests, we recommend that you become familiar 
enough with them that you can follow source code and exam- 
ples: most documentation and explanations of the Amiga 
Kernel use examples written in C; knowing a bit of assembler 
can come in handy if you want to optimize compiled code. 
Besides a good text on C (The definitive one is "The C Program- 
ming language" by Brian Kernighan and Dennis Ritchie). you1l 
need the Amiga documentation: the Rom Kernel, Dos, and 
Intuition manuals. 

If you're worried that programming the Amiga is impossibly 
complicated and you're intimidated by the bulk of the manuals 
you need to wade through, here's a little secret you might be 
interested in: programming the Amiga \seasy. However hard it 
may seem at first, the fact is that the operating system does so 
much for you that performing major operations is often just like 
filling in a form - simply assign the values you want to a system 
structure, then call a built-in function to interpret the values 
and do your bidding. In this article, we'll cover three important 
areas that can be most confusing to the new Amiga program- 
mer: structures, include files, and libraries. 



Structures 

C programmers are familiar with the concept of a structure, 

which may be thought of as a fancy array that can hold several 
variables of different types. This section contains ideas that 
might be redundant to those who already know C, but they are 
stressed here because they are especially important when 
programming the Amiga. The Amiga's operating system uses 
structures heavily as a means of passing packages of data 
between functions without having to specify each component 
separately as a variable. 



For example, consider the function OpenWindow{ ) in the 
Intuition library. To open a window, you just pass the 
OpenWindow function a pointer to (that is, the address of) a 
'NewWindow' structure that contains the necessary informa- 
tion about the window you want to open. The OpenWindow 
function knows the definition (called a "template') for the 
NewWindow structure, and your program knows too. because 
it obtained the definition from one of the standard 'include' files 
{more about those in the next section). The OpenWindow 
function returns a pointer to an instance of a "Window'* 
structure, which your program can subsequently use to find out 
things about the window that was just opened (its current 
width, etc), and which you may also use as an argument to 
other Intuition functions. Structures are also used throughout 
the system as a means of communication between tasks, 
though this is not something that you need to worry about for 
most applications. 

It is important to keep in mind the difference between a 
structure template and an instance of that structure. For exam- 
ple, we could define a "too" structure like this: 

struct foo { 

char name[20]; 

unsigned int RefN umber; 

struct foo •NextGuy; /• pointer to another structure */ 

}; 

Now ""struct foo" is a variable type that we can use in declara- 
tions. So. if we want to declare two structures of type "foo", we 
could use the declaration: 

struct foo Customer, Client; 

Now "Client" and "Customer" are structures of type "ioo". Foo 
is a structure template, while Client and Customer are in- 
stances of the foo structure. Individual members of Client and 
Customer can now be referenced using the 'dot' operator, like 
this: 

n = Client, RefN umber; 

The templates for system structures are generally defined in the 
include files that your program uses, and the structures them- 
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selves are declared in your program. So, if you wanted to make 
your own NewWindow structure and call it *'MyNewWindow'\ 
you would use the declaration: 

struct NewWindow MyNewWindow; 

Another important distinction to be made is the difference 
between a pointer to a structure and the stmcture itself- When 
using functions that pass information via structures, you usu- 
ally deal with pointers. When you are dealing with both 
structures and pointers to structures, it is easy to get mixed up. 
Don'l, because you access the elements of the structure differ- 
ently in each case. For example, we declared a NewWindow 
structure above called MyNewWindow; now let's declare a 
pointer to a ^'Window" structure and call it "MyWindowPtr": 

struct Window *MyWindowPtr; 

We access a member of MyNewWindow like this: 

MyNewWindow. Left Edge = 100; 

. . .and a member of MyWindowPtr like this: 

X = lvlyWindowPtr->Width; 

The arrow operator ( -> ) is used when accessing a structure 
member from a pointer, and dot ( , ) is used when using the 
structure itself. As shown in the "foo" structure example, a 
structure can contain pointers to other structures; this capabil- 
ity is often used to create a linked list of structures of the same 
type. 

In assembler, structures are simulated by defining the name of 
each structure element as an offset into the structure. As with C 
structure templates, these definitions take place in include files. 
(The manner in which these definitions are done is quite 
interesting, as they closely simulate C syntax through the use of 
macros; it's worth taking a look through some include files to 
see how it's done.) The number of bytes taken by each structure 
is also defined, so that you can allocate space in your program 
for any structure you need. This space in your program forms 
the instance of the structure, and the label you assign to it is the 
structure name. You can access a member of the structure by 
using the member name (as defined in the include file) as an 
offset to the structure name. For example, to "declare" a 
NewWindow structure called MyWindow, you just make 
enough space for it (probably at the end of your program) like 

this; 

MyWindow DS.B nw„SIZE 

Now you can put the address of the structure in a register, like 

this: 

LEA MyWindow.a2 

. . .and store a value into a structure member like this: 

MOVE #100,nw_Width(a2) 



That's enough about structures for now - let's get on to the next 
topic! 



Include Files 

One thing that many people find hard to cope with when first 
attempting to write a program on the Amiga is the multitude of 
INCLUDES that always seems necessary at the top of every 
source file. In other systems, you can write a lot of programs 
without including anything other than "stdio.h". On the 
Amiga, it's a different story, as you1l see if you take a look at the 
source code of any Amiga-specific program, or through the 
maze of files in the INCLUDE directory on a C development 
disk. 

Which include files you need to use in your program will 
largely depend on which libraries and ''devices'* you are using. 
For example, if you are using the Intuition library (more about 
libraries in the next section), you will need the include file 
"intuition/intuition.h". If you're not sure what you need to 
include, just use the above guideline and attempt to compile 
and link. If you get errors indicating that certain structures. 
constants or macros are not defined, use the SEARCH com- 
mand to locate its symbol name in the include directory, then 
INCLUDE the file in which it is found. The filenames of the 
include files always end in *\V' for assembler, or".h" (for 
header) for the C programs. Either way, they contain basically 
the same information. You'll find the following kinds of item: 

Defines (constants): These set up system-specific quantities 
that represent modes, error conditions, flags and so on. When 
you open a window through Intuition, for example, one of the 
things you can specify is the set of system gadgets - the size 
gadget, the drag bar etc. - you want to use. You can do this with 
a line like: 

newwindow.flags = WINDOWDRAG | WINDOWCLOSE; 
which is equivalent to: 



or even: 



newwindow.flags = 0x0002 | 0x008; 
newwindow.flags = OxOOOa; 



The numeric values of WINDOWDRAG and WINDOWCLOSE 
are defined, along with a host of other things, by ^define 
statements in the include file "include/inJuition/intuilion.h", 
You could just use the numbers if you wished to, of course, but 
that would be foolish - the names of the flags are much easier 
to remember, and make your program independent of operat- 
ing system revisions. 

Macros: These provide a shorthand method of incorporating 
often-used pieces of code into your programs. A classic exam- 
ple is the MAX macro: 

#define MAX(x,y) ( (x) > (y) ? (x) : (y) ) 
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Some include files contain macro definitions to facilitate 
Amiga-specific operations, such as setting bits in system varia- 
bles. An example from the file "include/graphics/ 
gfxmacros.h": 

#defineSetWrMsk(w.m){(w)->Mask = m;} 

Simple macros such as these could be easily coded by hand 
{e.g. rp->Mask = x; instead of SetWrMsk{rp,x);), but using the 
provided macros ensures that your program will be compatible 
with future operating system revisions. The Amiga manuals 
recommend that you always use the standard macros instead of 
coding such assignments yourself. 

Structures: Structure definitions are one of the main purposes 
of the include files. The operating system uses structures 
extensively to maintain all kinds of necessary information 
about the current state of the machine. For the most part, your 
program communicates with the operating system routines 
through structures that both the system and your program 
know about. 

Typedefs: In the include file "include/exec/types.h'\ there 
are a bunch of typedef statements that define commonly used 
variable types. The typedef statements have two purposes: To 
make your program more portable, and for convenience. Here 
are two examples of typedefs, taken from the "include/exec/ 
types.h"* include file: 

typedef short SHORT; 

typedef unsigned char •STRPTR; 

If you define a variable as SHORT (16 bits), and you wish to 
later use a compiler that interprets a short int as 8 bits, for 
example, you can just change the typedef statement instead of 
changing all of your variable declarations. The second typedef 
above can help to make your programs a bit shorter and 
clearer, as you can define pointers to strings with: 



STRPTR X, y; 



instead of having to say: 



example, you link your compiled C program with such a library 
to include any standard functions like printf, strcmp, etc. With 
Amiga's Lattice C compiler, you must link with "amiga.tib" to 
use library functions; the Manx Aztec C equivalent is called 
*'c.lib". This sense of the word library' should be nothing new 
for C or assembler programmers coming from other environ- 
ments. 

But just to throw you off (c'mon, you don't want this to be too 
easy, do you?), there is another kind of library in the Amiga. To 
access any of the system routines^ you have to open a library. 
Several of these libraries are available, each one covering a 
different aspect of operating system. An example is the graph- 
ics library, which is in ROM (actually, the writable control store, 
but we'll stick to the convention and call it ROM), and contains 
all the graphics primitives for drawing lines, ploUing text, filling 
areas, etc. There are over a dozen libraries like this available to 
the Amiga programmer; some are in ROM and some are on the 
WorkBench disk in the *1ibs'' directory, but they are all used in 
the same way. (If a program requests a library that is not in 
ROM, the system will ask you to insert the disk you booted with 
if it isn't already in the drive.) 

To use any of the system's routines, you have to "open" the 
library in which that routine is found. Opening the library 
determines its '^library base", which is the place in memory 
where a jump table exists for all the routines in the library. 
(Library bases are not constant: disk-based libraries can be 
anywhere in RAM after they're brought in. and ROM-based 
libraries can move around with different operating system 
releases.) You never have to worry about the actual location ol 
the library base: in C, you just open the library you want using 
the "OpenLibrary' function, then call the routines in it just as 
you would call any other function. In assembler, it's a bit more 
complicated, and we'll postpone discussion of that till a bit later 
on. 

First, let's look into how the library routines are actually 
executed. You don't need to know all of this stuff in order to use 
system routines, but most programmers prefer to know what's 

actually going on instead of just using a magic incantation 
because it works. 



unsigned char *x. ^y; 

Commento: The Amiga's include files are full of comments 
that explain all of the structures and in many cases, how to use 
them. Much valuable information can be gained from reading 
the include files. To save space on your program development 
disk, you can strip these comments out (there are public 
domain programs available to do this), but you should keep 
copies of the original files handy for reference - they can 
sometimes clear up things that are confusing in the manuals. 

libraries 

The term "library" can be confusing on the Amiga, as there are 

two quite distinct kinds. There are the standard libraries that 
you link with, as you would in any C or assembler program. For 



When you call OpenLibrary, you give it the name of the library 

you want to open (e,g. "graphics. library"), and the version 
number of the operating system that your program needs (or 
zero if it doesn't matter); it gives you back a pointer to the 
library base. The system can call any routine in that library by 
using offsets from the library base. Where does it get the values 
of those offsets? They're defined in the library with which you 
link {"amiga.lib" with the standard assembler and C compiler). 
In memory locations below the library base, there is a jump 
table for all of the routines in the library, just tike the Kernal 
jump table in the 8-bit Commodore machines. Above the 
library base is a structure that holds global data needed by 
routines in the library. 

Now you may have noticed that we've pulled a fast one on you. 
We've said that in order to use any system routine, you need to 



1h» 



Mach IMTt \MurM 7, Kmm OS 



open the library containing it, WeVe also said that in order lo 
open a library, you use the OpenLibrary routine. "Hmmm", 
you wonder, ''how do you open the library containing rhe 
OpenLibrary routine?" Good queslion. OpenLibrary is con- 
tained in ''exec.library", which you can find by relying on the 
only fixed memory location in the entire system. Location 
000004 holds a pointer to *"ExecBase'\ the library base for the 
Exec library. 

When you program in C, the Exec library is automatically 
opened for you (as is the DOS Library), but in assembler you 
have to use location 4 to get the pointer to ExecBase yourself. 
Once you have this pointer, you can use the offset (whose value 
will be defined when you link) to open the library. For details 
about using system routines in assembler and some sample 
code, see the article "An Introduction to Machine Language 
Programming on the Amiga" in this issue. It covers that topic 
nicely, so well concentrate a bit more on C right now. 

When you get the library base pointer from the OpenLibrary 
function, you must assign it to a specific variable name so that 
the routines in "amiga.lib" know the library base. Your pro- 
gram can also use this variable, since it also points to the library 
structure. (Remember, the jump table for the routines is below 
the library base, the library structure is above.) The names of 
the library base variables for some of the libraries are: 



main() 



Library 

exec.library 

dosJibrary 
intuition.library 
graphics, library 
layer s,library 
clist.library 
mathffp. library 
translator, library 



Library Base Name 

ExecBase 

DosBase 

IntuitionBase 

GfxBase 

LayersBase 

ClislBase 

MathBase 

TranslalorBase 



Since the library base is used as a pointer to the library 
structure, you must declare it as such. (The library base struc- 
ture template, has been defined, as usual, in an include file you 
used in your program.) The OpenLibrary (unction should be 
declared as returning a generic pointer, since it is used to open 
all kinds of libraries, with their own structure templates. Since 
the library base variable has been declared as a pointer to the 
library structure, you should "cast" the OpenLibrary function in 
the assignment. The following C program shows how to open a 
library, in this case the intuition library. 

#include <intuition/intuition.h> /• include (or intuition library •/ 
#include <exec/lypes,h> /* type definitions, etc. •/ 



/• declare OpenLibrary as function returning a pointer ♦/ 
/*(APTR is defined in "exec/types.h" as a generic pointer) 
APTR OpenLibrary( ); 

/• declare library base as a pointer to library structure •/ 
struct IntuitionBase 'IntuitionBase; 



*/ 



{ 



/* open the library and cast result to appropriate type •/ 
IntuitionBase = (struct IntuitionBase •) 

OpenLibraryC intuitionJibrary' . OL); 

/* check if OpenLibrary failed for some reason */ 
if (IntuitionBase == NULL) 

exil(OL); /• (here we just bomb on failure) */ 

DoStuff( ); /• your routine using calls to intuition routines •/ 

/* you should close alt libraries you opened •/ 
CloseLibrary( IntuitionBase); 



} 



Closing the library isn't strictly necessary for ROM-based 
libraries, but if the library is WorkBench disk-based, closing it 
will tell the system that it can kick the library out if it needs the 
[^M space. Since all libraries are created equal, and you don't 
want to worry about which are ROM and which are disk-based, 
your programs should always close all libraries they have 
opened- 

For a more complete look at how system routines are used, you 
should have a look at the source of a real program. Which 
brings us, conveniently, to the next section. 



Colours: A Sample Program 

Rather than give a simple ''Hello World" example to show 
programming concepts, we decided to include here a real C 
program - something that is actually useful in itself and not just 
for instruction. To that end. the program "Colours" is presented 
here. Colours opens a draggable window with depth-arranging 
gadgets on the WorkBench screen. Proportional gadgets on the 
window let you change the Red. Green and Blue components of 
any colour register, as in the Preferences program. You can 
switch to higher or lower colour registers by clicking up/down 
arrow-gadgets. This in itself is fairly handy, but Colour's 
greatest attribute is that it can operate on the colour registers of 
another screen. It operates on either the frontmost screen or 
the second screen from the front, depending on your selection 
(click the right mouse button to select one or the other). This 
gives you the superb luxury of changing the colours of just 
about any program currently running in the system. For exam- 
ple, this article is being written on TextCraft. which has no 
provision lor changing any of the eight colours it uses for 
various parts of the display. I currently have a purple back- 
ground, aqua page, orange top margin and other colours that 
the people who wrote TextCraft probably only had nightmares 
about. To get these colours, I just brought the WorkBench 
screen to the front (using left-Amiga/ N), where Colours was 
running {it uses no CPU time when not in use, so you can bring 
it up and forget about it), I then partially slid down the 
Workbench screen, revealing TextCraft^s screen. From there. I 
just used Colours - set to ''second screen" mode - and happily 
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mucked about with each of the eight 
colour registers, sliding the RGB gad- 
gets until I saw a colour I liked. The 
actual value of the colour also appears 
on the Colours window, so you can 
reproduce any of the colours again, or 
use them in your programs. Most pro- 
grams, including commercial games, 
can have their colours changed on 
them - right from under their nose! 
Great fun. The only programs you can't 
do that wiih are the ones that com- 
pletely hog the system and don't let 
you get to other screens as long as the 
program is up. but those are no fun 
anyway and don't really belong on the 
Amiga. 

Other features of Colours: You can only 
select "second screen" if there is one; 
pressing and holding an arrow gadget 
down for about half a second makes it 
repeat rapidly, letting you quickly gel 
to any colour register (useful in 5- 
bitplane screens, which have 32 colour 
registers); the number of colour regis- 
ters you can select always corresponds 
to how many are in the screen cur- 
rently being operated on; if you're 
changing the colours of the screen con- 
taining the colours program, a small 
block is rendered in the current colour 
being changed: clicking anywhere on 
the window outside of a gadget moves 
the RGB gadgets to their "dead-on" 
positions for the current colour value. 

The program uses the Intuition library 
extensively, using a window, propor- 
tional and boolean gadgets, and the 
IDCMP (Intuition Direct Communica- 
tion Message Port) for receiving gadget 
and mouse button events. The colours 
are set by the Graphic Library's 
SetRGB4( ) function, and the Move( ) 
and Text( ) functions are used to place 
various labels about the window. The 
Intuition and Graphics libraries are the 
only ones explicitly opened by this 
program. 

This program should show you that it's 
not too hard to use the Amiga's rou- 
tines. Intuition's gadgets, and change 
system parameters like colours. And as 
a bonus, this is one of the few pro- 
grams around that actually lets you 
change something on somebody else's 
screen! Some may consider that rude, 
but, at least in this case, it sure is 
handy! 



Amiga System Structures 

Whenever you write any Amiga-specific code, 
you'll find yourself using structures extensively to 
communicate with the system's library routines. In 
a way, structures on the Amiga are analogous to 
important system locations (such as those in zero- 
page) on a simpler computer like a Commodore 64. 
Anything you need to find out about the system, 
like colours of screens, sizes of windows, graphics 
modes, etc. can be found in a structure some- 
where. Structures also contain pointers to other 
structures, so you can get to just about anything by 
using a bit of indirection. A good example of this 
can be found in the Colours program listed at the 
end of this article. 

A structure is associated with each screen in the 
system. To get a pointer to the 'Screen' structure for 
the frontmost screen, we look in the 'IntuitionBase' 

structure, which we got a pointer to when we 
opened the Intuition library. The screen pointer is 

assigned to a variable called TheScreen', like this: 

TheScreen = lntuitionBase->FirstScreen; 

From a known pointer to a structure, we got a 
pointer to another structure of interest. Now, the 
program needs to know how many colour registers 
are in the first screen. Well, the Screen structure 
contains a pointer to a 'ViewPort' structure, which 
is a lower level representation of a Screen (a Screen 
is an Intuition entity, whereas a Viewport is used 
by the lower level graphics routines that Intuition 
itself calls). The ViewPort doesn't directly provide 
what we're looking for, but does contain another 
structure called a 'Raslnfo' structure - containing 
information about a raster (all bitplanes making up 
the display of a ViewPort), Inside the Raslnfo struc- 
ture is a pointer to a 'BitMap' structure, which 
finally contains almost what we're looking for - a 
member called 'Depth'. Depth is the number of 
bitplanes of the screen, and we want the number of 
colour registers, so we compute 2tDepth and we're 
through. All of the above is done with the C 
assignment: 

numregs - 1 « ((TheScreen->ViewPort) 

.Raslnfo->BitMap->Depth): 

The point is that you have to know what structures 
contain what, and how to get from one structure to 
another. The include files define the structures, so 
looking at the right include file is all you need to do 
to find out about any structure. The key is knowing 
what include file to look at, and it's not always 
obvious, since files include other files, which in 
turn may include others. What everyone really 
needs is a list of all include files, telling which files 
each includes and what structures each defines. 
And that, gentle reader, is exactly what we've 
prepared for you. 



Directories: 



intuition 

exec 

workbench 

graphics 

libraries 

resources 

hardware 

devices 



FILE inlultlon/lntultlonbaM.h 

^include ' exec/I ibraries.h ' 
^include 'graphlcs/view.h'' 

struct IntuitionBase 
FILE Intultlon/intuitlon.h 



♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 



' intu it ion/intuition base, h 

■graphics/gfx.h" 

'graphics/dtp.h" 

"graphics/view.h" 

" graph ics/raslport.h ' 

'graf^ics/layers.h' 

"graphics/text.h" 

"exec/ ports, h" 

'devices/lirner.h' 

" de vice s/inpute vent, h ■ 



struct Menu 
struct Menu Item 
struct Requester 
Struct Gadget 
struct Proplnfo 
struct String Info 
struct IntuiText 
struct Border 
struct Image 
struct IntuiMessage 
struct Window 
struct NewWindow 
s^uct Screen 
struct NewScreen 
struct Preferences 
struct Remember 

FILE exBc/exec.h 



♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 



' exec/nodes, h' 
' exec/I i$ts.h' 
'exec/interruptsh 
"exec/memoryb" 
' exec/tasks, h" 
" exec/ ports, h ' 
' exec/!ibraries.h ' 
"exec/devicesh* 
"exec/io.h" 



FILE exec/Hbrarle8.h 

♦include ' exec/types.h ' 
♦include "exec/nodes.h^ 

extern struct Library 
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FILE exec/exec base, h 

#jndude "exec/types.h' 
#inciude "exec/nodes.h" 
#indude "exec/lisl&h" 
# include " exec/tasks. h " 
^include ' exec/1 ibraries.h" 
#jnclude "exec/interrupts.h" 

struct ExecBase 

FILE exec /t as ks.h 

^include "exec/types-h" 
#jnclude ' exec/nodes.h " 
#include "exec/lisls.h' 

extern struct Task 

FILE exec/lnterrupls.h 

#inc1ude ' exec/types.h - 
#jnclude "exec/nodes.h" 
#include "exec/llsts.h" 

struct Intef rupt 
struct I nt Vector 
struct SoftlntList 

FILE exec/execname,h 

No includes or structures in thislile. 

FILE exec/devJces^h 

^include ■exec/types,h'' 
^include " exec/nodes.h ' 
#include "exec/lists.h" 
# include " exec/tasks.h " 
#include " exec/ports.h - 
#inctude 'exec/libranesh' 

struct Device 
struct Unit 

FILE exec/enrors.h 

No includes or structures in this tile. 

FlLEexec/aterts.h 

No includes or structures in this tile. 



FILE exec/resident.h 

^include " exec/types.h ' 
#include "exec/nodes-h 



FILE exec/io.h 

#inc^ude ■ exec/types.h " 
^include "exec/nodes.h" 
#include "exec/lists.h" 
#include "exec/tasks,h'' 
#include " exec/ports.h ' 

struct 10 Request 
struct lOStdReq 

FILE exec/ports.h 

# include "exec/types.h" 
#indude "exec/nodes.h" 
#include "exec/lists.h" 
#include "exec/tasks,h'' 

struct MsgPof t 
struct Message 
struct Semaphore 

FILE exec/ types<h 

No includes or structures In this tile. 

FILE exec/memory, h 

#include 'exec/types.h" 
# include " exec/nodes.h " 

struct MemChunk 
struct WemHeader 
struct WemEntry 
struct Mem Li St 

FILE workbench/startup.h 

# include " exec/types.h " 
#indude "exec/ports.h" 
#include ' libraries/dos.h ' 

struct WBStartup 
struct WBArg 

FILE workbench/icon.h 

No includes or structures in this file. 

FILE workbench/workbench. h 

^include "exec/types.h" 
#include "exec/nodes.h" 
#indude "exec/lists.h" 
#include "exec/tasks,h" 
#include "intuition/intuition.h" 





struct DrawerDala 


struct Resident 


struct DiskObjecl 




struct Free List 


FVLE exec/nodes.h 


Struct WBObject 


#include "exec/types.h' 




struct Node 


FILE graphlcs/text.h 




^include "exec/ports.h 


FILE exec/ll5t8.h 


struct TextAttr 


#indude "exec/types.h" 


struct TextFont 


#incude "exec/nodes.h" 




struct List 





FILE graphlcs/clip,h 

#include<graphics/gfx-h> 
#include<exec/ports.h> 

struct Layer 
struct CitpRect 

FILE graphics/regions.h 

#include <g raphics/gf x, h> 

struct RegionRectangle 
struct Region 

FILE graphics/gfxbase.h 

#inciude <exec/lists,h> 
#include <exec/libfarjes.h> 
#include <exec/interrupts.h> 

struct Gf xBase 

FILE graphlcs/copper.h 

struct Coplns 
struct cprlist 
struct CopList 
struct UCopList 
struct CO pin it 

FILE graphics/display.h 

No includes or structures in this file. 

FILE graphics/sprite.h 

struct SimpleSpflte 

FILE graphlcs/vlew.h 

^include <graphics/gfx.h> 

struct Color Map 
struct View Port 
struct View 
struct Raslnfo 

FILE graph Ics/rastportph 

^include <graphics/gfx.h> 

struct Area Info 
struct TmpRas 
struct Gels Info 
struct RastPort 

FILE graphlcs/gfxmacros.h 

#tnclude<graphics/rastport.h> 

FILE graphics/layers, h 

#include <exec/ports.h> 
#include<exec/1ists.h> 

struct Layer_lnfo 

FILE graphics/gfx.h 

struct Rectangle 
struct BitMap 



ITwTranioclQt 
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FILE graphics/graphint.h 


FILE resources/mlsc.h 


FILE devices/conaole.h 


#include <exec/nodes.h> 


#include "exec/rbrariesh" 


^include "exec/io.h" 


struct Isrvstr 


struct Mfsc Resource 


FILE devlces/gameport.h 


FILE g rap hies/gel 8, h 


FILE resources/dlsk.h 


struct GamePortTrigger 


struct VSprite 


^include "exec/types.h" 


FILE devices/audJo.h 


struct Bob 


^include "exec/lists-h' 




struct AnimComp 


#include "exec/ports,h' 


#incude "exec/ich" 


struct AnimOb 


#incude 'exec/interrupts.h' 


struct lOAudio 


struct DBufPacket 


#inciude "exec/libraries.h" 




struct collTable 


struct DiscResourceUnit 


FILE device 8/ key board, h 


FILE graphJcs/colllde.h 


struct Disc Resource 


#inc1ude " exec/io.h ' 


No includes or structures in this file. 


FILE hardware/custom.h 


FILE devices/cllpboard.h 


FILEIibrarles/mathffp.h 


struct Custom 


^include "exec/ports. h" 


No Includes or structures in this file. 


FILEhardware/cia.h 


struct ClipboardUnitPartial 
stfuct lOCIipReq 


FILElibraries/dos.h 


struct CIA 


struct SatisfyMsg 


#include "exec/types.h" 


FILE hardware/dmablts.h 


FILE devlces/inpuLh 


struct DateStamp 


No includes or structures in this tile. 


^include "exec/io.h" 


struct FifelnfoBlock 
struct InfoData 


FILE hardware/bllUh 


FILEdevfces/parallel.h 


FILE llbraries/dosextens.h 

^include "exec/ports-h" 


struct bitnode 

FILE hanlware/adkbtt3.h 


#include 'exec/io.h' 

struct JOPArray 
struct lOExtPar 


#incfude 'exec/libfaries.h' 






#incljde 'libraries/dos-h" 


No includes of structures in this file. 


FILE devices/trackdi8k.b 


struct Process 


FILE hardware/I ntbit8.h 


include "exec/io.h" 


struct FileHand e 
struct Dos Packet 


No includes or structures in this file. 


struct lOExtTD 


struct Standard Packet 
struct DosLJbrary 


FILE devlces/narratorh 


FILE devices/bootblock.h 


struct Root Node 


#include ■" exec/io.h ' 


struct BootBlock 


struct Doslnfo 


^ ± A 1 




struct CommandLinelnterface 
struct Device Li St 


struct narrator rb 
struct mouth rb 


FILE dev Ices /prt base ph 

#include 'exec/portsh"" 


struct Fife Lock 

FILE libraries/diskfont.h 


FILE de vices/key map. h 

struct KeyMap 


^include ' exec/ ibraries.h " 
#include "devices/paralle.h" 
#include "devices/serial.h' 


^include "exec/nodes-h" 




#include ' devicGS/timer.h ' 


^include " exec/lisls.h ' 


FILE devlces/llmerh 


#include 'libraries/dosextens.h- 


#include "graphics/texth" 


# include " exec/io,h ' 


#include "intuition/intuilion.h" 


struct FontCon tents 


struct timeval 


struct DeviceDala 


struct FontContentsHeader 


struct timerequest 


struct Printer Data 


struct DiskFonlHeader 


1 


struct Pr inter ExtendedData 


stf uct Avail Fonts 


FILE devicea/printer.h 


struct Printer Segment 


struct Avail FontsHeader 






^^% 1 BH ^w^ % r * ¥ %^*" p F ^w^ 1 ■ l^^" ■ ^wr %n ^^ ^wr 1 

FILE llbrarlea/translator.h 


#include * exec/nodes.h " 
^include "exec/lists.h" 
#includG " exec/porls.h ' 


FILE devices /I npute van t.h 

# include " devices/timerh ' 


No includes or structures in this f\\e. 


struct lOPrtCmdReq 


struct InputEvent 


FILE resources/potgo.h 


struct lODRPReq 


FILE devices/conunlt.h 


No includes or structures in this file. 


FILE devlces/serlaLh 


# include ' exec/ports. h ' 


FILE resources/cla.h 


^include ' exec/io.h" 


# include ' dev ices/con sole, h ' 
^include 'devices/keymap.h" 


No includes or structures in this file. 


struct JOTArray 
struct lOExtSer 


^include "devices/inputeventh" 
struct ConUnit 
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» Colours: The amazing colour-set control panel « 

From The Transactor « 



NULL 



>; 



>> 



*• October 1986, Version 1,0 



■ * 

■ ■ 



uses proportional gadgets for setting H C B 
and atlous alteration of any colour register 
operates on the TOPMOST OR SECOKD SCREEK, so 
lets you change the colours of any currently 
executing prograin with its own screen 

» THIS PROGRAM HAT BE FREELY OISTRIBUTEO « 



*• (c) 19B6, AMAI (Acme Heuristic Applications!) 
■• Urilten by Chris Zamara and Hick Sullivan 

(include <exec/types.h> 
(include <intuition/intuition.h> 
■include <flraphics/gfx.h> 
iincLude <8raphics/vieu-h> 

/* defines for defaults, positioning, sizes, etc 



■define SCREENZIHIT FALSE 

■define GADGHEIGHT 10L 

(define RTOP 15L 

(define GTCp 2Bl 

(define BTOP 4U 

(define CVAL 177L 

■define CPOSX 195L 

■define CPOSY 63L 

■define RPOSX 115L 

(define SCRPOSX 15L 

(define SCfiPOSY 63L 

(define UPGAOGX 197L 

(define UPGaOGY IOL 

■define DHGADGX 197L 

■define ONGADGY 3^L 

(define COLORGADGET 1 

(define UPGADGET 2 

■define DOWWGADGET 3 

Wdetine ARROWDELAY 5 

(define POTINC 0x1111 

(define RTEKT CRTOP+CGAliGHElGHT 

■define GTEKt (GTOPtCGADGHEIGHT 



/• 
/* 

/* 
/* 
/' 
/* 

/* 
/* 
/' 
/* 
/• 
/* 



- - - ^ p 

default to topmost screen V 
height of prop. RGB gadgets*/ 
y pos of top of Red sadget ■/ 
■■ 11 u creen gadget */ 
■I " " Blue gadget */ 
pos of colour values V 
pos of coir reg indicator*/ 



X 
X 

y 

X 
X 

y 

X 

y 

X 

Y 
ID 

ID for up gadget 
ID for doun gadget 
# of ticks before repeat 
amt added to pot per click 
» 1)+2) /* gadget 
>■> 1>*2) /■ text 



pos of '*"... 
pos of Register text 
pos of screen indicator 
pos of screen indicator 

pos of L4> gadget 
pos of up gadget 
pos of dokjn gadget 
pos of doun gadget 
for RGB gadgets 



■define BTEXT (BTOP+{ GADGHEIGHT » 1)*2> /* position 

/* global structure declarations */ 
alruct Intuilior^ase *lntuitionBase; 
struct GfxBase "GfxBase; 
struct Viewport *vp; 
strucl RastPort *rp; 

struct IntuiHessage *GeTHsg(), *message; 
struct Window *OpenWindowC), 'gwind; 
struct Screen 'ThcScreen; 

/* function declarations •/ 
APTR OpenLibraryO; 
USHORT GetRGBA{); 
USHOHT GadgPressedO; 
BOOL GadgRelessedO; 

/• co-ordinate of points of up/down arrows */ 
SHORT UpXYES] = O3.0. 35,17, 0,17, 13, 0>; 
SHO«T DownXYtB] - (D,0, 25,0, 13,17, 0,0}; 

/* control knob Image structures */ 
struct Inaoe knobA, knobG, knobB; 

/* Proplnfo structures for control gadgets •/ 
struct Proplnfo propinfR, propinfGj propinfB; 

/* Border structure for Up-Arrow gadget V 
struct Border UpArrow » C 

3. 2, 

1, 0, JAM1, 

UpXY, 
NULL 

>; 

/* Border structure for Down-Arrow gadget */ 
struct Border DowTbArrow = t 

3. Z, 

1, 0, JAH1, 

DownXY, 



•/ 

*/ 

*/ 

*/ 

*/ 

•/ 

•/ 

*/ 

'/ 

•/ 

*/ 

*/ 

'/ 

*/ 

•/ 

'/ 



/* gadget structure for colour controls */ 
struct Gadget gadgR ■ i 

NULL, /* pointer to next gadget (set later) •/ 

16, RTOP, 155, GADGHEIGHT, /* left/top/uidth/heightV 

GADGHHOHE \ GADGJHAGE, 

GADGJHHEDIATE | RELVERIFY, 

PROPGADGET, 

rendering (for autoknob) 
no select rendering 
intuitext ptr (none used) 
mutual exclude 
ptr to propinfo structure 
ID used to check gadget type 



(APTR)&knobfl, 


/* 


MULL, 


/* 


NULL, 


/* 


HULL, 


/* 


CAPTR)£propinfR, 


/• 


COLORGADGET, 


/* 


NULL 





*/ 
*/ 
•/ 
*/ 
•/ 
•/ 



>? 

struct Gadget gadgG, gadgB; 

/* gadget structure for up/down colour reg select arrows*/ 
struct Gadget gadgUp = ( 

HULL, 

UPGADGX, UPGADGY, 31, 2^, 

GADGHCOMP, 

GADGIHHEDIATE | RELVERIFY, 

BOaL{lADGET, 

( APTR )&UpAr row, 

NULL, NULL, MULL, NULL, 

UPGADGET, /' gadget 10 */ 

NULL 

>; 

struct Gadget gadgDo^n; 



/* define NewWindow structure for our window */ 




Struct KewWindow GadgUind 


■ ( 




100, 50, 233, 72, 


/* 


(eft, top, width, height 


*/ 


-1, -1, 


/• 


use screen colours 


*/ 


GADGETDOUN 


/• 


IDCHP flags 


•/ 




GAD GE TUP 








1 

i 


KOUSEBUTTONS 










INTUITICKS 








1 


CLOSEUIHDOW, 








UENDOUOEPTH 


/• 


window flags 


*/ 




WINDOUCLOSE 










UINDOUDRAG 










RHBTRAP 








ACTIVATE 








SHART REFRES*' 


li 






£gadgUp, 


/• 


first gadget in List 


*/ 


NULL, 








(UBYTE *)"Colour 


Control 1.0'*, /* window title 


*/ 


NULL, 




/• ptr to screen 


•/ 


NULL, 








0, 0, 0, 0, 


/* sizing limfta (non-resiiabte3 


^ */ 


WBI 


ENCHSCREEH 









J; 

/■ array for fast'n'easy int to ASCII conversion */ 

char *cniJii[32] » C "00", *'D1", "02", "03", "04", "05", "06", "07", 

"08", "09", "10", "11", "12", "13", "14", "15", 

"16", "17", "13", "19", "20", "21", "22", "23", 

"24", "25", "26", "27", "Zfl", "29", "30", "31", 

>; 

USHORT colreg ■ 0; /* current colour register */ 
BOOL ScreenZFlag = SCREEH21N1T; /* f-top scr, t=2nd scr */ 
BOOL Old2Flag = JSCREEH2INIT; /* Screen2Fle9 prev val */ 



main (argc, argv) 

int argc; 
char *ar9vl]; 



ULOHG 

USHORT 

APTR 

USHORT 

USHORT 

BOOL 

BOOL 

BOOL 



msgcLasa; 

msgcode; 

lAddr; 

UhichGsdg; 

TickStart; 



/* 
/* 
/' 
/' 

/* 



GadgSot = FALSE;/* 
fiegSel = FALSE; /* 



nessage ctass fron IDCHP 
message code froni IDCHP 
pointer to got^et from IDCHP 
ID of selected gadget 
arroLj repeat delay countdown 
t = colour gadget selected 



*/ 
•/ 

*/ 
•/ 
•/ 

•/ 



t = up or down gadget selected*/ 



uindow_^6tilL_open = TRUE; 



/* open intuition and graphics libraries V 
if ( (TniuitionBase « (struct IntuitionBase •) 
OpenLibrary ("intuition-library", OL) ) 
exit <0L); 



:= NULL) 
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if { CCfxBase 5 {struct GfxBase *) 

OpenLibrary ("graphics. Ubrary", OL) ) ■= NULL) t 

C(oseLibrary (IntuiCionBase); 

exit tOL); 
> 

/* second arg specifies default colour register V 
if (argc ■- 2) 

colreg - atoiCargvCl]); 

/• fill in structures V 

prc^infR. Flags ^ FREEHORIZ | AUTKHOS; 
propinfR.HoriiBody = 1 « 12; /' body increment 1/16 */ 
/* propinf structures for R G B gadgets all alike •/ 
prcpinfG * propinfH; 
propinfB = propinfR; 

/* G and B gadgets satoe as R */ 

gadgG = gadgR; 

gadgS = gadgA; 

/■ except for... */ 

gadgG . Top£dge ■ GTOP; 

gadgB . TopEdge = BTOP; 

gadgG. Gadget Render = CAPTR}&knobG; 

gadgB, Gadget Render - CAPTR)£knob6; 

gadgG. Speciallnfo - (APTR)SpropinfG; 

gadgB.SpeciBllnfo - (APTRUpropinfB; 

/• define down gadget in terrns of up gadget V 

gadgDoun = gadgUp; 

gadgOoun, Gadget Render = (APTR)&OownArrow; 

gadgDown, Left Edge = DNGADGX; 

gadgOoun.TopEdge = DNGAOGY; 

gadgDoun. Gadget ID ^ OOUMGADGET; 

/■ link alt gadgets by pointers V 
gadgUp. Next Gadget » igadgDown; 
gadgDown.NextGadget = £gadgR; 
gadgR. hextGadget ■ tgadgG; 
gadgG. NextGadget > J^gadgB; 

/* now try to open the window containing the gadgets */ 
if (Cgwind = OpenWindowCSi^adgUind)) =^ NULL) ( 

CloseL i brary^Gf xBase); 

CloseLibrery(lntuitionflase); 

exitCOL); 
> 

/• get per to rastport for graphics routines */ 
rp = Bwind->HPort; 

/• set RGB gadget positions to current colours */ 
SetColrsC); 

/■ put up labels on window display */ 

UinTexK); 

/* put up colour register nunber indicator */ 

ReglndicateO; 

/**• main event loop "V 
while (window_stiU_open) t 

/* wait politely, unless sliding a colour gadget */ 
if C! GedgSel) 

Wait (1L « gwind->UserPort->inp_Sigflit); 

^ite Cmessage ' GetHsgCgwind->UserPort]) { 
/■ get what we need from the message port ■/ 
iisgcless ■ inessage->ClBss; 
magcode = racssage->Code; 
lAddr B mefisage'>l Address; 
Aepl VMS g{nies sage); /* reply to nsg right away V 

/* now we can interpret the me&sage ■/ 

/• check for gadget selected */ 
if (nsflctass " GADGETOOUN) 

UhichGadg < GadgPressecClAdJr, fiGadgSel, 

&RegSel, &TickStart); 

/* check if gadget released, even M off gadget"/ 
else if ( (insgclass >= HOLSEBUTTOHS 
U msgcode ^=; SELECTUP) 
II msgc:less » GADGETUP ) 
GadgSel = 

GadgReleasedClAddr, fiRegSel, UhichGadg); 



/• alternate affected screen if r> button down */ 
else if Cmsgclass >= hojse BUTTONS) C 

if Cnsgcode >ti^ HENUDOUN) i 
Screen2Flag * iScreenSFlag; 

UpdateCotReB(O); 
J 

/* update display if left button pressed '/ 
else if (msgcode =■ SELECTDOUN) 

UpdeteGolRegCO); 



/■ auto-r^>eat arrow gadgets after delay •/ 
else if <fflsgclass » [NTUITICKS &£ RegSel) { 

/' wait ARROWDELAY ticks before repeating */ 

if (Tickstart+* > arroudelaY) 
UpdateColRegCUhichGadg); 
> 

/* finish up if the close gadget is clicked */ 
else if Cmsgclass a> CL05EWINOOU) 
window_still open = FALSE; 



if CGadgSel) 

/■ set colour to pot values •/ 
ReadGadgC); 



/* close everything i4> before ending */ 
C I oseU i ndow( gwi nd) ; 
C loseL ibraryCGf xBase); 
CloseLibraryC Intuit ionBase); 



USHORT GadgPressed (lAddr, CadgSel, RegSel, TickStart) 
/• sot flags, call right routines when gadget clicked •/ 

struct Gadget "lAddr; 
BOOL -GadgSel, *RegSel; 
USHOfiT *7ickStart; 
( 

USHORT UhichGadg; 

/■ get gadget type •/ 
WhichGadg ■ lAddr->GadgetiD; 

/• rgb gadget? •/ 

if (WhichGadg == COLORGADCET) i 

■CadgSel - TRUE; 

/• update settings if 2nd screen gone •/ 

if (Screen2FUg && 

lntuitionBase->FirstScreen->Next5creen == HULL) 
UpdeteColRegCO); 



/* eUe^ must be up/down gadget */ 

else C 

'RegSel - TRUE; 

•TickStart » 0; /* start delay timer V 
UpdaTeColRegCUhichGadg); 
> 

return (UhichGadg); 



BOOL GadgReteased ClAddr, RegSel, UhichGadg) 

/* gadget released ' set flags, call relevant routines V 

struct Gadget "lAddr; 

BOOL *RegSel; 

USHORT UhichGadg; 

C 

BOOL GadgSel ■ TRUE; 

if (WhichGadg == COLORGADGET) C 
ReadGadgO; 
if ( < ((struct Proplnfo ') 

CIAddr->Speciallnfo))'>Flags ) i KNOBHIT ) 
SetColrsC); /" reposition knob if it was rnoved •/ 

GadgSel = FALSE; /* colour gadget no longer sel. */ 

> 

else 

■RegSet ■ FALSE; /* Other gadget no longer sel. •/ 



iiw Tfwoctor 



Xt 
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return (GadgSet); 



/* read pot values, sat register 'cotreg' accordingly '/ 



U5H0RT RedVaL, GrnVaL, BLuVaL; 

RedVal » propfnfR.HorfzPot / POTINC; 
GrnVal ■ propinfG.HorizPot / POTINC; 
BluVal ' proplnfe.HorlzPot / POTIKC; 

/* get viewport of topmost or second screen •/ 
vp « t(TheScr«en->ViewPort); 

/* chanfle colour register */ 
SetRGB4(vp. CULONGKolreg. (ULONG)RedVaL, 
(ULOMG)GrnVat, (UlONG)&LuVel 

); 

PrintValues(RedVaL, GrnVaL, BluVal); /* nums to riflhtV 



PrintValues (R, G, B) 

/' print colour values to right of gadgets V 

USHORT R, G, B; 

( 

SetAPenCrp, 1L); 
Hovetrp, CVAL, RTEXT); 
TextCrp, cnuaCRl, 2L>; 
Hove(rp, CVAL, GTEXT); 
Text<rp, cnumEG], ZL); 
Movetrp, CVAL, 8TEXT); 
TextCrp, cnun[B], 2L); 



/• show a block in "colreg" colour if this screen •/ 
/* or background colour if another screen */ 
c ■ <lntuittonBase'>ActiveScreen '■ TheScreen) 

? cotreg : 0; 
Hove(rp, CP0SX+Z4, CPOSY); 
SetDrHdCrp, INVERSVID); 
SetAPen(rp, c>; 
Text<rp, • ", 1L>; 
SetDrHdCrp, JAM2); 
SetAPen(rp, 1L); 



/• move past text '/ 
/■ inverse ntode ■/ 
/* sat colour */ 
/* print a space •/ 
/* set mode to normal */ 



UinText C) 

/* put up various Ubeta on window */ 



SetAPenCrp, ID; 

KoveCrp, 5l, ftTEXT)j 
TextCrp, "R", ID; 

Hovetrp, 5L, GTEXT); 
Text<rp, "G", ID; 

HoveCrp, 51, BTEXT); 
TextCrp, "fl", ID; 

HoveCrp, RPOSX, CPOST}; 
TextCrp, " Register", 9D; 



UpdateColReg (UhichGadg) 

/■ increment or decrement colour register •/ 

/• if WhichGadg is 0, just display current settings */ 

USHORT UhichGadg; 



SetColrs C) 

/* set gadget pot values according to rgb in ■colreg* */ 



USHORT CO, R, G, B; 
ULONG hpR, hpG, hpfi; 

/• get viewport of topirost screen */ 
ScreenPickO; /• select screen one or two •/ 
vp ■ liCTheScrean-> Viewport); 

/* get rgb of apecified colour register •/ 
CO - GetRGB4Cvp->ColorHap, (UlONG)(colrea) ); 

/• convert rgb to HoriiPot values */ 
R ■ (CO » 6) ft OxF; 
G - (CO » 4) & OxF; 

B >> CO £ OxF; 
hpR ■ R * POTINC; 
hpG * G * POTIhC; 
hpfl ■ B • POTlhC; 

/• change gadgets to reflect new colours */ 

HodifyPropC&gadgR, gwind, NULL, 

CULOHOpropinfR. Flags, hpR, OL, 
(ULONG)propinfR.HorfzBody^ OL 

HodifyPropCigadgG, gwind, NULL, 

(ULONG)propinfG. Flags, hpG, OL, 
CULONOpropinfG.HorizBody, OL 

>; 

HodifyPropCigadgB, gwind, NULL, 

CULONOpropinfB^Flags, hpB, OL, 
CUL0NG)propinfS.Hori2Body, OL 

>; 

PrintValuesCR, G, B); /• colour numbers */ 



USHORT numregs; 

/* get number of bitplanes of screen V 
ScreenPickO; /* set 'TheScreen' •/ 

nunregs » 1 « C(TheScreen->ViewPort).RasInfo-> 

B{tHep->I>epth); 
/* (whewl) */ 

/* increment or decrement colour register */ 
if CWhichGadg ^^ UPOADGET) 
colreg++; 

else if CUhichOadg — DOUNGAOGET) 

col reg- - ; 

colreg ■ colreg % nunregs; 

ReglndicateO; 
SetColrsO; 



Reglndicate () 

/• show colour register noitjer V 



ScreenPfck () 

/* select top screen if ScreenZFlag false " 

** or second screen if true 

'* and update display if necesary 

*/ 



TheScreen » lntuitionBose'>FirstScreen; 

HovcCrp, SCRPOSX, SCRPOSY); 

SerAPenCrp, H); 

SelBPenCrp, 3D; /* print in new background colour */ 

it CScrcen2Flag) C 

if CTheScreen->NextScreen " NULL) /* no 2nd scrn */ 
5creen2Flag ■ FALSE; 

else i 

/* set pointer to second screen */ 
TheScreen - TheScre©n'>HextScreen; 
if C0ld2Fleg 1" Screen2Flog) 

TextCrp, »<SECOHD SCREEN", 13L); 



ULONG c; 



/' first print register number •/ 
NoveCrp, CPOSX, CPOST); 
SetAPenCrp, ID; 
TextCrp, cnmCcolreg], 2D; 



hm 



if ClScreenZFlag &£ OtdZFlag) 

TextCrp, " TOP SCREEN ", 13L); 

SetBPenCrp, OL); 

Old2Flag ■ ScreenZFlag; 
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A Tale Of Two Cs 



Adam Herst 
Toronto, Ontario 



. . .the most recent programming revolution has 
made it to Commodore machines in a big way. 



11 is the best of times, it is the worst of times. TheC-64, revolution- 
ary in its time for its price/performance ratio, has been surpassed. 
While the C-128 improves on the C-64, it offers no technolf^ical 
advances and is in danger of being priced off the marlteL It often 
seems that the newest and brightest technologies and programs 
never make it to this part of the Commodore world, A good hard- 
disk drive, for instance, is sorely lacking. Nonetheless, the most 
recent programming revolution has made it to Commodore ma- 
chines in a big way. The C programming language, often said to be 
the most-used language for large, complicated programming proj- 
ects, is now available for many Commodore machines. 

The reasons for this are two-fold. With the introduction of the C- 
128 and its very standard CP/M operating system, many tried and 
tested C compilers now run on a Commodore machine. The 
release of the Amiga has also seen the introduction of many C 
compilers for it. While requiring custom versions for its unique 
operating system, the Amiga's configuration of chips and OS make 
it an ideal C machine. Finally, the successful implementation of 
OS/9 on the SuperPET and the subsequent introduction of a full C 
package for it helped extend the Commodore C shores. 

While the new Commodore machines have helped make C a 
viable alternative programming language for Commodore users, 
the second reason is the interest and support given the language 
by two software manufacturers. Abacus Software of Michigan and 
Pro-Line Software of Toronto have, in the last couple of years, 
introduced and supported versions of C for the C-64 and C-128. 
Reasonably priced and relatively standardized, C is now available 
for the most popular of Commodore machines. 

Abacus software has been producing Super C for the C-64 for over 
two years. While a good first offering, the original versions suffered 
from poor organization, sparse function libraries and a non- 
standard implementation. A serious programming environment 
was not provided with the various components of the system 
(editor, compiler and linker) linked together by a simple loader 
menu. With the introduction of the C-l 28 came Super C version 
3,0 for the C-128, Not content merely to port the compiler to the 
new machine, many of the problems in the original C-64 version 
have been addressed. Libraries have been dramatically improved 
and now include graphic and math functions. In addition, all of the 
component programs have been tied together under an operating 
system-like shell that provides greater system control. Perhaps the 
best news is that Super C for the C-64 has been upgraded to 
version 2,0 and includes the library and shell enhancements of the 
128 version. Programs for the two versions are portable within 
machine restrictions. 



Released at approximately the same time as Super C was C Power 
from Pro-Une Software. Generally agreed to be superior to Super 
C version 1 ,0, it included the extensive libraries and shell interface 
that have only just appeared in the Abacus offerings. In addition, 
the C Power implementation more closely adhered to accepted C 
standards, a must for a language which claims portability as one of 
its strong points. A C-128 version of C Power is now available, 
offering little change from the C-64 version other than machine- 
dependent improvements. (Unless otherwise noted, references to 
one or the other of the two compilers will be to both the C-64 and 
C-128 versions). 

Documentation 

Super C is clearly the winner here. A three-ringed binder with 
close to 300 pages of tutorial and reference material is included in 
the package. Divided into two sections, the first is a user guide and 
comprises tutorials on the various shell utilities and short sample 
programs to familiarize the novice with the operation of compilers 
and the peculiarities of the C language. The second section is a 
system guide and comprises an extensive reference to the shell 
utilities and Abacus's implementation of the language. Despite the 
volume of information, a much-improved index makes specific 
references easy to find. 

C Power suffers from poor documentation. A short-coming of the 
C-64 version, it was alleviated somewhat by the inclusion of C 
Primer Plus, an excellent introductory textbook. The small 
amount of system specific information was contained in some 40 
oddpagesof very small type with no index provided. In the C-128 
version of C Power, Pro-Line has not included C Primer Plus and 
has made only small improvements to its documentation. Grown 
to 60 pages, it now includes a number of examples and tutorials 
and a one page index. Despite these improvements it conveys 
nowhere near the amount of information as the Super C package. 

The Environment 

Both compilers make use of a shell to tie together the various 
components of the programming environment. This is the first 
program that must be loaded and in both cases, exiting the shell 
resets the computer As well as the compiler-specific files (editor, 
compiler. linker)area number of built-in and transient utilities for 
system control. 

Command-line driven, the Super C shell (an unintentional pun) 
can only be described as an MS-DOS / CP/M mutant. Letters 
represent drives which are lo^ed into the system through their 
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leUer designations. Up lo eight disk drives can be supported. Built- 
in commands include DOS, time of day clock and a processor 
speed Ic^le command (on Ihe C-128 version oniy ). Transient 
commands include device, copy, type and a fast load command for 
use with 1541s. While not a major criticism, there is no way to set 
the screen colours for the system; cursor and text colours have 
special meaning, reflecting the current status of the system, \ was 
never able to figure out what all the different colours meant and 
would gladly have sacrificed this feature* for a blue screen with 
white letters- A major plus is the ability to handle multiple 
command lines. This allows the compilation and linking process to 
be totally automated. In addition, parameters can be passed to the 
called programs through the command line. 

1 have been told that the C Power interface closely resembles that 

of the UNIX operating system. If so, 1 can understand why I've 
never seen anyone using a UNIX machine, 1 never have and can't 
confirm any resemblance. All in all, I wasn't impressed with the C 
Power shell, finding it clumsy to use. Four drives are supported, 
numbered through 3, with drive fixed as the logged drive. 
While a drive path is searched on file load, most DOS commands 
are directed to this drive. Also missing are the benefits of Commo- 
dore's unsurpassed full-screen editing. Incorrect command lines 
must be retyped — in full. No cursoring up to make corrections. 
There isn't even a way to recall the last command issued. Built-in 
commands include the standard DOS commands and a set colour 
command. Also provided is 1/0 redirection. Transient commands 
(written in C with source code included) are provided mainly lo 
illustrate I/O redirection and include find, sort, and wordfreq. 

Both systems use the C-I28s extra memory as a RAM disk and 
provide different commands with which to interact with them. The 
benefits are two-fold. Single-drive users can avoid the intermina- 
ble disk swapping compilation requires and all users can benefit 
from the vastly increased compile times. C Power provides 191 
blocks shared between two disks, while Super C provides a single 
disk of 239 blocks. The former includes commands for enabling 
and disabling the disks, thereby freeing the memory for program 
use, while the latter includes commands for the backup of the RAM 
disk into a single file on a floppy. While Super C claims to support 
the 1 750 memory expansion with a RAM disk of up to 256K it is. as 
yet, an unimplemented 'feature'. 



The Editor 

Both packages provide an editor with which to create C source 
code. Given the fact that both packages seize control of the 
machine, using a third party editor is impractical so a system editor 
is a must. However, as these are compiler and not editor packages, 
both leave a lot to be desired. Fundamental functions are pro- 
vided. Both have adequate search & replace and cut & paste 
facilities. My biggest complaint here is that the cut and paste is line 
rather than character oriented. Super C provides 43k for text space 
that is divided between a main and an extra text area- C Power will 
give variable amounts of space depending on the existence of RAM 
disks and an unlimited number of editing buffers. Both provide the 
extra characters crucial to C (curly braces, backslash, vertical bar, 
tilde) although only the Super C editor will send the modified 
characters lo your printer (even a CBM 1526!) 



Two versions of the editor are provided with C power. One gives a 
larger text area while the second sacrifices editing space for syntax 
checking. This is a worthwhile trade-off especially when porting 
other source code. The code is loaded into the still full-featured 
editor, and syntax is checked when the command is issued. The 
process is halted on the first error and the cursor returns to 
command mode. Exiting command mode leaves the cursor on the 
source of the error. A very nice addition. 

Both editors are adequate. Although Super C seems to have more 
bells and whistles, the C power editor has a much nicer leel' (a 
totally subjective opinion formed after using countless text editors 
and word-processors for innumerable hours.) Much of this opin- 
ion is due to the absence of an 'insert' mode of text entry in the 
Super C editor. This was compounded by a seemingly random bug 
that caused stray numbers lo appear in the text. This occurred 
infrequently but did halt the compilation process a number of 
times with syntax errors. 

A second drawback to the Super C editor is a fault of the system as 
a whole. To capitalize on the use of colour in the source code, the 
Super C editor and compiler use a USR file format. While the editor 
will load SEQ files (albeit in a garbled form), the compiler and 
linker will only accept USR files. This makes it very difficult to port 
foreign source code into the Super C system. File conversion is a 
must. As a solution I have prepared Convert, a program in C that 
will compile on t>oth compilers. This program has also been used 
for the comparative benchmarks. It will convert Super C to sequen- 
tial files and vice-versa. 



Compiler 

Both compilers support nearly standard implementations of the C 
language. Missing in both are bit fields, a means of assigning the 
number of bits that an object will require. It is unlikely that you will 
miss them. As well both have non-standard aspects in their 
initialization of variables and their definition of scope. This can 
become a problem when porting foreign code. Both compilers 
support all of the required data types. Super C holds the edge in 
type sizes with long int equal to 4 bytes compared to C Powers 2. 
and in precision with long float equal to 8 and 5 bytes respectively. 

Both compilers generate error messages on compilation. Super C 
directs these to an error file which can be loaded into the extra text 
area of the editor for debugging. Extensive explanation of the error 
messages are contained in the documentation. Compilation con- 
tinues until the end of the code or a fatal error has been reached. In 
either case, enough information has been accumulated to make 
major corrections to the source code, C Power wili pause on 
encountering an error, and seems to give up on compilation much 
more readily. In addition, no error file is generated. These factors 
would be a major annoyance if not for the preventive error 
checking done by the C Power editor. Unfortunately, no documen- 
tation about the error messages is provided. 

The compilation times for the Convert file are given below. All of 
the 1 28 processing is done in fast mode with a 1571 disk drive. The 
\ 28 versions allow compilation to disk, and this is reflected in their 
faster compilation times. 



Itmlromaaoi 



RMcBCh 1967: Volunw 7, ls«ut 05 





To Disk 


To RAM-Disk 


Super C 64 


42 s 


NA 


C Power 64 


30 s 


NA 


Super C 128 


20 s 


4s 


C Power 1 28 


88s 


50 s 



Linker 

The linker is used (o attach library files fo the compiled source 
code. Errors encountered during linking are written to ihe screen 
for both systems. Super C is able to link files from and to the RAM 
disk. Functions are contained in one of ihree library files, either 
sldio, math or graphics. In al! cases the enlire library is linked to 
the compiled source code. C Power, while claiming to allow 
linking from and to the RAM disk, was not above occasionally 
trashing my RAM disk during the process. Functions exist as 
independent files, and only referenced functions are linked to the 
compiled source. This can result in substantially smaller program 
code. The various link times are listed below. 





To Disk 


To RAM-Disk 


Super C 64 


85 s 


NA 


C Power 64 


77 s 


NA 


Super C 128 


44 s 


5s 


C Power 128 


71 s 


47 s 


I .ihraries 







The key to C's portability is its use of function libraries. While the 
heart of a C compiler should remain constant across implementa- 
tions, 1/0 and machine specific functions are included by the 
manufacturer as external libraries. The contents of the library 
depend on the manufacturer and are one of the major determina- 
tions of a compiler's utility, A complete function library saves a 
programmer many hours of writing his/her own libraries. Key 
functions are outlined in the K&R standard for C and these are 
contained in both the Super C and the C Power compilers. In 
addition Super C provides extensive graphic and math functions 
not available in the C Power package. 

Machine Language 

A function provided by both compilers allows access to machine 
language functions. This is the callQ function in Super C and the 
sysO function in C Power. Since I do not program in ML{oneof my 
reasons for learning C) 1 was not able to test these functions. 
Superficially, the C Power ML interface appears superior. It allows 
the passing of bank, address and register parameters while the 
Super C cail() function passes a single address pointer. As well. 
simple memory maps of Ihe compiler environments are provided 
to help the programmer prevent fatal interaction between the C 
and ML code. Details on machine language access is the only area 
in which the C Power documentation surpasses that of Super C. 

Run Time 

In all but the C-l 28 version of Super C. the product of linking can 
be designated to run under the shell or as a stand-alone program. 
For both versions of C Power and Super C for the C-64, this stand 
alone-program will run from BASIC and can be freely distributed. 



The C-128 version of Super C requires that a special disk be 
prepared with the shell on it using the sysgen command. An 
autoexec file can be included to cause the program to auto-boot. 
Among other benefits, this allows the RAM disk to be distributed 
with the program. (It should be noted, however, that the hcensing 
agreement prohibits the '\ . .copy(ing) of any portion of this soft- 
ware package, . .for any purpose other than backup.". This indus- 
try is crazy.) 

C Power holds the edge in prc^ram size. Resultant files are 
considerably smaller than those produced with Super C. This is 
due at least in part to the selective linking of library functions in C 
Power compared with the all or none linking of Super C, File sizes 
for the Convert program are provided below. Execution times were 
measured using the Convert program to convert a 100 block file. 
Sizes and times are presented below. 





Size 


Run time 


Super C 64 


40 blocks 


6:19 


C Power 64 


1 6 blocks 


4:44 


Super CI 28 


41 blocks 


4:00 


C Power 128 


21 blocks 


3:57 


Conclusion 







Both the Super C compiler from Abacus Software and the C Power 
compiler from Pro-Line are good implementations of the C lan- 
guage. Neither without fault, they have different qualities that 
recommend both for different needs. C Power's weak documenta- 
tion cripples what would otherwise be a well rounded package. 
More examples of compiler-specific functions and error messages, 
and an expanded function library, are all that are needed. Super 
C's major weakness only applies to the C-128 version. The 
inability to create a run from BASIC program is one of the few 
features that would have better been left unchanged from the 
original C-64 version. Arnie ~ get on the ball! 

Each of the compilers fill a different need. For the novice and 
intermediate C programmer, Super C must be recommended on 
the strength of its documentation and the breadth of its libraries. It 
is an easy to use package with more power that most users should 
need. Its major faults are only apparent to the discerning eye. For 
the expert programmer or software developer the issue is a toss- 
up. On the 128, Super C's ultra-fast compile and link times make 
program development effortless. In addition there are a wide range 
of graphic and math functions to choose from. If execution speed 
or run from BASIC capacity is important, however, then C Power 
may be the way to go. 

The reasons for programming in C are myriad. A fully ^ructured 
language, C also provides extensive control over variables and 
functions. Combined with this are many o( the advantages of 
programming in assembly language: fast execution and low-level 
control of the machine. While no language is ever the ultimate 
solution for all programming projects, C can fulfill important needs 
in the Commodore community. Its transportability ties together a 
wide range of Commodore computers in a way BASIC 2.0 was 
never able to. It is gratifying to see that the 65xx family of 
Commodore machines is not being left out of this most recent 
programming revolution. 
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/■ program to convert Super C 
/■ files to/from SEQ files 
/' converting filetypes 
/' and control codes 

^define POWER 

ffffdef POWER 

flincLLxJe "stdio.h" 

tfdefine CLR '\Z23' 

#else 

tfinclude "h:stdio,h'' 

#endif 

char innan»e[25]; 
char ouTname[25i; 

ffifdef POWER 

FILE inchan; 

FILE outchan; 
tfelse 

f 1 le inchan; 
f i le outchan; 
iVendif 

mainC) 

( 

int menuC); 

int choice ; 
int status = 0; 
char inbuff[255]; 
char outbuff [255]; 



uhile ( ( choice = menuC) ) \= '0' ) 

{ 

choice = ( choice i= M' > 7 1 : 2 ; 

putchar(CtR>; 
tfifdef POWER 

getcharC); 

#endif 

namef i leC'Source ", innamej; 
namef i leC'Destination ", outnaine>; 
modnacnesC choice ); 
#ifdef POWER 

inchan = f openCinname,"r"); 
outchan = fopenCoutname,"w"); 

iVelse 

inchan = open<8,2, inname); 

outchan = open(a,3,outname); 
tfendif 
status = 0; 

while (Istatus) /* read a Line and convert 

{ 

f9ets(inbuff, 254, inchan); 

iVifdef PCUER 

status = feof( inchan); 

iVelse 

status = EOF; 
#endif 

convert (choice, inbuff , outbuff); 
fputs(outbuff, outchan); 
printfC"\nXs", outbuff ); 
> 

cLose( inchan); 
cLoseC outchan); 



namefile<f iletype, name) 
char "f iletype; 
char *name; 

< 

printf("\n%sf i le name: ",filetfl5e); 

getsCna[ne,16); 

/• Super C getsC) fix */ 

if ( *< name + ( strlenfname) -1 ) ) -^ '\n* ) 



/• input filename '/ 
/• pass pointer to filename '/ 



*( name + ( strlenCname) -1 ) ) 



■\0' ; 



int menuC) 

{ 

int choice; 
do 

i 

printf("Xc\n",ClR); 

prinifC* !• Super C to Sequential\n"); 

printf(" 2- Sequential to Super C\n\n"); 

printfC" 0. EXIT"); 

choice = getcharC); 
J 

while C ( choice != '0' ) && ( choice 1= "V ) fifi C choice I 
return choice; 



convert (choice, inbuff , outbuff) 
int choice; 
char inbuffCl; 
char outbuff []; 

t 

static int Ifnenun = ; 
int inndex=0; 
int outndex^O; 

f f f linenun == ) 
switch (choice) 

case 1: 

inndex *=3 ; 

linenum = 1 ; 

copybufftinbuff, outbuff, inndex, outndex); 

break; 

case 2: 

outbuff [OJ = 133; 
outbuff [13 * 129; 
outbuff [2] » 5; 
ootndex +=3; 
Unenoii = 1; 
\l ^f copybuffC inbuff, outbuff, inndex, outndex ); 

break; 



= »2' ) >; 



else 



switch (choice) 

case 1: 

inndex**; 

copybuff<inbuff , outbuff, inndex, outndex); 

break; 



case 2 



outbuff [0] = 5; 

outndex**; 

copybufftinbuff , outbuff, inndex, outndex); 

break; 



modnamesC choice ) /• modify filename for */ 
int choice; 

( /• read/write usr/seq */ 

switch (choice) 
< 

case 1 : 

strcat(inns[nt, ",u,r"); 
strcat(outnaine, ",s,u"); 
break; 
case 2 : 

strcat(inname, ",s,r"); 
strcatCoutname, ",u,w"); 
break; 



copybufft inbuff, outbuff, inndex, outndex ) 
char inbuff n ; 
char outbuff L] ; 
int inndex; 
int outndex; 

C 
do 

< 

outbuffC outndex ] = inbuff[ inndex ]; 

i nndex**; 

outndex**; 

> 

whileC inndex <* strlent inbuff ) ); 



Itw Tramoctor 



37 



Moch 1967: VDhMfM 7, Inu* OS 



/• program to convert Super C 
/• files to/from SEO files 
/• converting filetypes 
/' and control codes 



•/ 
*/ 



*•• un-coiment for C-Pouer */ 



/• fldefine POWfR 

#ifde* POWER 

tfinctude <'stdio.h" 

Wdefine CLR •\223» 

tfelse 

#inctude "a:stdio.h" 

#endif 

char innamel25]; 
char outnamel25J; 
tfifdef POWER 

FILE inchan; 

FILE outchan; 

file inchan; 
file outchan; 
tfendif 

mainC) 

t 

int menuO; 



int choice ; 
int status ■ 0; 
char inbuff[2SSl; 
char outbuff LZ55); 

while < ( choice = mer^O } t» ^O' ) 

i 

choice = ( choice == M' J 7 1 : 2 ; 
putchar(CLR); 

fifdef POWER 

getchart); 
«endif 

namefileCSource ", inname); 

namefiUC'Oestination ", outname); 

inodn6fnes< choice )^ 

«ifdef POWER 

inchan » fopcnCinna(w,"r"); 

outchan ■ fopen(outnQme,"w">; 
felse 

inchan = openC8,2,innanie); 

outchan = open(8, 3, outname ); 
#endif 
status = 0; 

uhile (Istatus) /* read line and convert it 
i 

fgetsCir^ff, 254, inchan); 

»ifdef POWER 

status = feof(inchan}; 

#else 

status = EOf; 
#endif 

convert<choice, inbuff, outbuff); 

fputs(outbuff , Okitchan); 

printfC"\nXs'\ outbuff ); 

> 

c I ose( inchan); 

closeCoutchan); 
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modnamesC choice ) 

int choice; 

< 

switch (choice) 

{ 

case 1 : 

strcattinname, ",u,r">; 
strcatCoutnaine, ",s,h"); 
break; 
case 2 : 

atrcat(inna(ne, ",s,r"); 
s treat (outname, ",u,w"); 
break; 



/• modify filename for */ 
/• read/write usr/seq */ 



nafltef ile(f i letype, name) /* input filename */ 

char 'filetype; 

char *name; /• pass pointer to filename */ 

i 

printf(»\nXsfile name; ",filetype); 

get8(name,16); 

/* Super c getsC) fix */ 

if ( •{ name + < strlenCname) -1 ) ) == '\n' ) 
•( name * ( strlen(name) -1 ) > = *\0' ; 



int menuO 

C 

int choice; 
do 

C 

printf("Xc\n",CLR); 

printf(" 1, Super C to SequentiaL\n">; 

printf(" 2- Sequential to Super C\n\n"); 

printf(" 0, EXIT"); 

choice X getcharO; 

uhile ( ( choice != '0' ) ££ < choice 1= M> ) 

U ( choice !>= '2' ) ); 

return choice; 



convert (choice J inbuff^ outbuff} 

int choice; 
char inbuff (J; 
char outbuff[]; 
i 



static int linenum 
int inndex-0; 
int outndex=0; 



- ; 



if ( Unenum ■= ) 
switch {choice} 
C 

case 1: 

inndex +=3 ; 

linenunt = 1 ; 

copybuff (inbuff, outbLff, inndex, oulndex); 

break; 

case 2: 

outbufflO] ■ 133; 

outbuffCl] *= 129; 

outbufflZ] = 5; 

outndex +=3; 

I i nenun = 1 ; 

copybuff(inbuff , outbuff, Inndex, outndex); 

break; 



else 



switch (choice) 

case 1: 

inndex++; 

copybuff (inbuff, outbuff, inndex, outndex); 

break; 

case 2: 

outbuff [0} = 5; 

outndex**; 

copybuff(inbuff, outbuff, inndex, outndex); 

break; 



copybuff( inbuff, outbuff, inndex, outndex ) 

char inbuff H; 
char outbuff []; 

int inndex; 

int outndex; 

i 
do 

i 

outbuff [ outndex 3 = inbuff ( inndex ]; 

inndex**; 
outndex**; 

> 

Hhile( inndex <= strlenC inbuff > ); 

> 
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)arison of Language Speeds 

Anton Treuenfels. Fridley, Minnesota 

Donald Piven, Chicago. Illinois 

Brian Junker, Champaign-Urbana, Illinois 



There are many reasons to consider using 
a programming language other than Basic on the C64. 



(Note: these results were originally reported in a specialized 
"notesfile" devoted to Commodore on the Control Data PLATO 
system. PLATO is primarily devoted to computer-assisted in- 
struction, but has also been an Influential pioneer in such areas 
as multi-player interactive games and electronic "bulletin 
boards", things only recently rediscovered by organizations 
like CompuServe and The Source.) 

There are many reasons to consider using a programming 
language other than Basic on the C64. Some of these reasons 
are; use of a structured programming language, easy use of a 
program originally written in another language, and taking 
advantage of features unique to a particular language. The most 
common reason, however, is speed. Basic is often perceived as 
simply not fast enough to suit some need. 

Speed is so paramount a concern that sometimes the only 
question asked about a particular programming language (or a 
particular implementation of that language) is. "How fast is it?". 
Unfortunately, this is also a very difficult question to answer. A 
particular language may be welt-suited to task X but not really 
meant for task Y, while for another language exactly the 
opposite may be true. A test of only task X or only task Y might 
not be very informative - particularly if a programmer's main 
interest is task Z. 

Bearing that in mind, we present here the cheerfully unscien- 
tific methods and results of an informal survey to see how long 
it took to accomplish one particular task using several different 
languages and implementations of those languages on the C64. 
We also threw in a quick took at the Basic interpreters of the 
C16andC128. 

The task chosen was to determine the first 1000 prime num- 
bers. Prime numbers are positive whole numtiers which can- 
not be evenly divided by any positive whole number smaller 
than themselves except L The first few primes are 2, 3, 5, 7, 11, 
13, 17, and 19. While it is known that there are infinitely many 
prime numbers, the only way to lei! if any particular number is 
prime is to check it and see. There is presently no practical use 
for this information other than the amusement of people who 
play with computers- 



The algorithm used to find the first 1000 primes can be 
described as follows: we give away the first two primes, 2 and 3, 
We divide each number we are testing by all the primes we 
have found so far. If any prime evenly divides the lest number 
(ie„ there is no remainder), then the test number is not prime 
and we can go on to the next test number. If, on the other hand, 
we make it through all the primes found so far without a zero 
remainder, we have found a new prime and can add it to the 
list. This is the basic idea, but we can make two immediate 
simplifications. First, we need only test odd numbers, because 
the only even prime is 2. All other even numbers can be evenly 
divided by 2. Second, we do not need to divide by every prime 
we know, but only those up to the square root of the number 
we are testing. This is because if there is a number larger than 
or equal to the square root of the test number that evenly 
divides it, the result of the division must be a number equal to 
or smaller than the square root of the test number that also 
divides it evenly - and we have just ruled all those out! In 
practice, not all languages support square roots, so we use an 
alternate method of keeping track of the last prime we need to 
test. It is not perfect, but it keeps us *'close enough". 

This is not the fastest possible algorithm (a prime sieve such as 
that used by Gilbreath, '^A High-level Language Benchmark" 
BYTE, September 1981 , p. 180 would be faster), but it provides 
a good comparison of the speed of simple calculations in the 
languages tested. 

Here is the algorithm coded in Basic V2-0 

100 NP = 1000 

IIODIWPN(NP) 

120 PRINT CHR$(147) 

130PN(1) = 2:PN(2) = 3 

140TN = 3;LT = 2:LP-2 

150IFTN>PN(L"T)*PN(LT)THENLT = LT+1 

160TN=TN+2:PP = 2 

1 70 R = IN / PN(PP) : IF R = INT(R) THEN 160 

180IFLT>PPTHENPP = PP-*-1 : GOTO 170 

190LP = LP + 1 :PN(LP)=TN 

200 PRINT TN, 

210 IF LP <NP THEN 150 
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The Basic V3.5 and V7.0 tests were run using the same code as 


D0{ 


V2.0. The Simon s Basic version eliminates the GOTO state- 




ment by using the REPEAT..UNTiL and IR.THEN..F,1.SE con- 


IF (testnum > primenum[ asttest] * primenum[lasttest ) { 


structs- It then appears very simi ar to the Pascal version of the 


lasttest + +; 


a gorithm. 


} 


Here is the algorithm coded in Oxford Pascal: 


testnum + = 2; primeptr = 2; 


PROGRAM Primes; 


D0{ 


' CONST tola primes = 1000; 


IF {testnum % primenum[primeptr+ +] = = 0) { 


VARlestnum, primeptr, astlest, astprime ; integer; 


testnum + = 2; primeptr = 2; 


primenum : array[1-totaprmes of integer; 


} 


BEGN 


}WHrLE (primeptr <= lasttest) 


page; 


primenum[+ +lasttest] = testnum; 


primenum[1] := 2; prmenum[2 :=3; 


printf{"%cllO\testnum); 


' testnum : = 3; asttest ; = 2; astprime : = 2; 






}WH LE ([astprime < tota primes) 


REPEAT 


} 


F testnum > primenum[ asttest] • primenum[asttesf] 


Here is the algorithm coded in C64 FORTH (immediate mode): 


THEN asltest:= asttest + 1; 




testnum : = testnum + 2; primeptr : = 2; 


3 variab e testnum 




2 variabe primeptr 


REPEAT 


2 variab e asttest 


X 


2 variabe astprime 


F testnum MOD primenum[primeptr] <> 


1 000 constant tolalprimes 


- THEN primeptr : = prinieptr + 1 


: array <bui ds 2* 2 + a ot does> swap 2* + ; 


ELSE BEGIN 


totalprimes array prirrienums 


testnum : = testnum -+- 2; primeptr = 2; 


: bumpptr 1 primeptr +! ; 


END; 


: bumpnum 2 testnum + ! 2 primeptr ! ; 




: notprime testnum @ primeptr @ primenums @ /mod 


UNTIL primeptr > asttest; 


drop = ; 




: foundprime primeptr @ lasttest ® > ; 


astprime : = astprime + 1 ; 


: getprime begin notprime it bumpnum e se bumpptr 


primenum[ astprime] ; = testnum; 


then foundprime unti ; 


wrile(testnum:10); 


; storeprime 1 astprime + ! testnum @ astprime @ 




primenums ! ; 


UNTIL astprime = totatprimes 


: al done astprime @ tota primes ^ ; 




: bump asl 1 asttest + ! ; 


END 


: past ast testnum @ asttest @ primenums @ dup • > ; 




: bumptest past ast if bump ast then ; 


Here is the algorithm coded in Super C 


: showprime testnum @ 10 .r ; 




: bigloop begin bumptest bumpnum getprime storeprime 


^INCLUDE "stdio.c- 


showprime a done unti ; 


*DEnNElola[primeslOOO 


: setup 3 testnum ! 2 lasttest ! 2 astprime ! ; 




2 1 primenums ! 


MA1N( ){ 


3 2 primenums ! 




: primes setup big oop ; 


NT testnum, primeptr, asttest, laslprime; 




INT primenum[totalprimes]; 


The algorithm is simple enough that only very minor changes 




in coding, if any, were needed to run the test using different 


primenum 1 = 2; primenum[2] = 3; 


versions of the same language. Here are the results (a 1 limes in 


testnum = 3; lasttest = 2; lastprime = 2; 


minutes and seconds): 
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LANGUAGE 

Commodore LOGO 
WATCOM Pascal 
Nevada FORTRAN 
BASIC 7,0 
BASIC 3.5 
BASIC 2.0 
Simon's BASIC 
BASIC 7.0 
HES FORTH 
FORTH 64 
KYAN Pascal 
C64 FORTH 
SuperFORTH64 
Insta-Speed 
Super C 
Insta-Speed 
Oxford Pascal 
Super Pascal 
KYAN Pascal 
C Power 
Assembler 



VENDOR 

Commodore 
WATCOM 

Commodore 

Commodore 

Commodore 

Commodore 

Commodore 

Commodore 

HES 

Abacus 

KYAN Software 

Performance 

Parsec 

Cimmaron 

Abacus 

Cimmaron 

Precision 

Abacus 

KYAN Software 

Pro-Line 

Commodore 



print no print diff rel speed remarks REMARKS: 



75:03 
22:44 
13:25 
11:36 
10:31 
8:29 
7:07 
5:28 
5:12 
4:43 
4:13 
4:06 
4:00 
3:55 
3:18 
3:15 
2:16 
1:40 
1:02 
0:49 
0:32 



74:27 
22:20 
12:42 
10:34 

8:10 
6:47 
5:04 

3:57 
4:00 
3:22 



0:36 
0:24 
0:43 
0:53 

0:19 
0:20 
0:24 

0:46 
0:13 
0:44 



2:58 
2:56 
2:02 
1:33 
0:55 
0:37 
0:26 



0:20 
0:19 
0:14 
0:13 
0:07 
0:12 
0:06 



On Ihe whole the results speak for themselves, but we will 
make a few comments anyway. First, when reading the results 
bear in mind that comparisons between different implementa- 
tions of the same language may be more meaningful than 
comparisons between different languages. The particular al- 
gorithm used for this test may not be suited to a given language 
or not well-coded in that language. If so, then at least within 
that language the different implementations are still on "com- 
mon ground" something that might not be as easy to tell with 
respect to another language. 

That the fastest 'language" turns out to be assembler comes as 
no surprise. Hand-coded native machine language is always 
the fastest executing code on any machine. However, it is not 
usually the fastest kind of code for a programmer to write. 
Ideally a high-levet language would execute as fast as assem- 
bler but be much easier to write in the first place. In practice, 
although the ease of programming is there, the speed isn't. To 
use the second fastest language, C Power, a programmer pays a 
50% cost in speed using this algorithm (this is not to take 
anything away from C Power - to pay only SOX is very good, 
and still 10 times as fast as interpreted Basic 2.0). 

At the other end of the spectrum, what accounts for the 
lethargy of the slowest languages tested - the ones slower than 
Basic 2.0? We can probably attribute most ol the sluggishness 
of Basic 3.5 and Basic 7,0 (at 1 MHz) to the frequent bank- 
switching they must do to access the Basic interpreter, text, and 
variables. WATCOM Pascal is an interactive, interpreted ver- 
sion of a language which Is normally compiled, and among 
other things probably has a lot of overhead calculating at run- 
time things other versions determine at compile-Iime. LOGO 
does so poorly because we've assigned it a task which is a long 
way from the language's strengths: list processing and power- 
ful, simple graphics. LOGO is like a simplified LISP (LlSt 
Processing), the premier language of artificial intelligence re- 



140.72 

42.63 

25.16 

21.75 

19.72 

15.90 

13.34 

10.25 

9.75 

8.84 

7,91 

7.69 

7.50 

7.34 

6.19 

6.09 

4.25 

3.13 

1,94 

L53 

1.00 



D,1.5.6 
C&D,1 

C&D,2,7 

B.1,4,8 

B,l,4 

B,l,4 

C,1.5 

B,],4,9 

C.3,5 

D.3,5 

D,2,4,10 

D,3.4 

D,3,4 

D.2,4.11 

D,2,4 

D,2,4,12 

D,2,4 

D.2,5 

D,2,4.13 

D,2.4 

D,4 



B = built-in ROM. C = cartridge, D = disk 

(1) Interpreted language. 

(2) Compiled language. 

(3) Incremenlally compiled language, 

(4) Stand-alone Basic-runnable programs 
can be aeared. 

(5) Stand-alone Basic-runnable programs 
cannot be created. 

(6) Estimates only. LOGO ran oul of mem- 
ory at ihe 306th prime. These estimates 
are based on lime for finding 300 primes: 
22.31 with priming, 22:20 without 

(7) Nevada FORTRAN runs on the Commo- 
dore Z80 cartridge under Ihe CP/M 2.2 
operating system. Stand-alone CP/M- 
runnable COM files can be created. 

(8) C128 running at IMHz. 

(9) 0128 running al2f^ Hz. 

(10) Compiling to interpreted p-code. 

(1 1) Insta-Speed {also distributed as 
SpeedWrtter by CodeWriler, also known 
as DTL-Basic) is a Basic 2.0 compiler. 
Compiling original Basic 2.0 prt^ram, 

il2)Compiling using speed enhancing op- 
lions. 
(13) Compiling to machine language- 



search, in the same way Basic is like a simplified FORTRAN. 
The design needed by a language with good list processing 
primitives - most likely each list (indeed, each LOGO variable) 
is a binary tree whose nodes contain literal character strings - 
virtually guarantees both the memory and speed problems we 
encountered, in the case of Nevada FORTRAN, problems of 
bank-switching, interpretation, and inappropriate language 
design do not apply. It is possible that the lack of speed results 
from the hardware - the Z80 is less efficient than the 6510 at 
some operations, and on the C64 it runs at a slower clock speed 
than it is capable of. On the other hand, perhaps the FORTRAN 
compiler simply produces inefficient code, 

A quick and dirty surrey like this may begin to answer the 
question, ^'Which language is fastest?". The answers to a 
number of other relevant questions that might be considered 
are not provided here, however. There is no description of how 
easy or difficult a particular implementation is to work with, for 
example. For languages with a separate compile step there is 
no indication of how quickly the compiler does its job or the 
size of the finished program hie it produces. Many of the 
languages have official or unofficial "standards" that describe 
what should be included and how things should be done. Our 
survey only says that the implementations of each language we 
tried were complete enough that we could run our test; it does 
not indicate where a particular implementation falls short of 
the standard or has a non-standard extension of some kind- 
Unique or unusually helpful features of some implementations 
have not been mentioned. Questions of cost, availability, ven- 
dor support, and licensing arrangements (in the case of compil- 
ers capable of producing stand-alone Basic-runnable program 
tiles) have not been addressed. 

Nevertheless, we think our results are interesting and would 
welcome additions to our list! 
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CP/M Block 
Allocation Calculator 



M iklos Garamszeghy 
Toronto, Ontario 



On the C-l 28, CP/M single sided disks are divided up info 1 70 
logical blocks, called allocalion units, of 1 K bytes each. The 
allocation unit is (he minimum amount of disk space that CP/M 
will assign to a file or add to a file as il grows. Each allocalion 
unil consists of four physical disk sectors. Double sided CP/M 
disks use 2 K byte allocalion units, consisting of eight disk 
sectors. Unfortunately, the pattern of sectors used for each 
allocation unit Is rather complex and is quite different from the 
normal filling order of COMMODORE DOS blocks. CPM 
BLOCK is a short BASIC 7.0 program that will calculate and 
print oul a list of the track and sector numbers corresponding to 
each of Ihe 1 70 allocation units for either single or double sided 
disks. 

The list can be used in conjunction with a disk sector editor, 
such as ■ DISPLAY T&S" on the 1541 demo disk, to trace the 
contents of a CP/M file on the disk. The CP/M directory is 
located in allocation units and 1. Data starts at allocation unit 
2 and normally filled in corsecutive order. Files on disk that 
have been written to and scratched a number of times may be 
scattered widely over the disk. The allocation unit numbers 
used in the print oul correspond to the numbers found in the 
allocation map (bytes 16 to 31} of each directory entry. For 
double sided disks. CP/M fills side first then side 1 . 

All single sided CP/M disks. C-128 included, are divided up 
into I k byte logical areas called blocks or allocation units (Alls). 
The allocation unit is the smallest space on the disk that a file 
can occupy. For example, even if a file contained only one byte. 
the other 1023 bytes in its allocation unit cannot be used by 
another file. The C-128 single sided disk contains 170 alloca- 
tion units, numbered to 169. AUs and 1 contain the 
directory, while the rest are used for data storage. Each AU is 
logically subdivided into 8 "records" of 128 bytes each. The 
record is the smallest addressable unit for finding or storing 
data on a disk within a CP/M file. As files grow, they contain 
more records and consequently more blocks are allocated from 
the list of empty blocks. 

Since the C-128 sector size is 256 bytes, each CP/M AU is 
comprised of four physical sectors on the disk. The actual 
structure of the C-'128 CP/M disk is the same as a standard C- 
1 28 disk in terms of sector size, number of sectors per track and 
number of tracks per disk. The order in which the sectors are 
filled, however, is quite different. The sector skew rate is 5. This 
is easiest to visualize if you think of each track as a dartboard 
with the s^ments numbered in consecutive order from up to 
the maximum number of sectors on that track. The sectors are 
filled starting at and jumping 5 each time to the next. That is 
0. 5, 10, 15. etc. When you complete the circle once, you 
should have gone past the 0. For 21 sectors per track you will 
end up at sector 4. The cycle then repeats: 4, 9. 14, 19.3,8. 13. 



18, etc. until all the sectors on the track have been used and it 
jumps to sector of the next track. For any given track, this can 

be expressed by the simple cyclical relationship: 

next sector"^ last sector* + 5: IF next 

seclor^maximum* on (rack THEN next 

sector* = last sector'^ + 5 -number of sectors on track 

From this relationship, you can see that the actual filling order 
of the sectors depends on the number of sectors on the track- 
Thus, there are four distinct filling orders used on the disk: one 
for each of the four areas on the disk with different numbers of 
sectors per track. Track 1, sectors and 5 as well as track 18. 
sector are reserved for special system functions and are not 
included in the fill table. For reasons unknown to humans. 
Commodore decided to structure the CP/M disk as 640 logical 
tracks of one sector each. The numbering of the logical sectors 
corresponds to the fill table. Double sided C-'128 CP/M disks 
have an allocation unit size of 2 k bytes or 8 physical sectors or 
1 6 records. Side is filled first, then side 1 in basically the same 
order. Track 36 sectors and 5 and track 53, sector (corres- 
ponding to Ihe unused sectors on side 0) are not used on side 1 . 

Basic Source Listing 



JC 
EO 

PN 

FN 

IC 

OP 

DE 
KM 
DL 
OF 
FH 
NL 
KB 
KF 
FO 
JJ 

KM 

DP 
DN 
MC 
FC 

GC 



1 00 rem save " 0: block calc " ,8 

1 1 print cs$ " * * cpm block calcuiator * * " 

120 print " by m. garamszeghy" 

1 30 print ' ver 2 86-04-01 " : print 

140cl$-chr$(157):cs$-chr$(147) 

1 50 input " <s>ingle or <d>ouble sided " ;sd$ 

:sd = 1:ifsd$=''d' thensd = 2 
160 input "<s>creenor<p>rinter";ot$ 
170ff ot$= -p' then open 4,4: cmd4: else print cs$; 
180t=1:s=10:tc = 2:sm = 20 
190 print " 1571 cp/m disk block map" sd' sided" 
200 print " block#\,,''track:sector" 
210print "dec(bex)" ;: sk= 1 
220 for be = to 169 

230 print: print bc;cl$ " { " right$(hex$(bc),2) " ) " , 
240forsc=1 to4'sd 
250 print t;cl$":"s.:s = s + 5:tc = tc + 1 

: if s>sm thens = s-sm-1 
260iftc>smlhent = t+1:s = 0:tc = 

:ift=18ort = 53thens = 5:tc-1 
270ift>17thensm = 18:jft>24thensm = 17 
280 if t>30 then sm = 1 6: if t>35 then sm = 20 
290ift = 36andsk = 1 thens=10: tc = 2: sk = 
300 if t>52 then sm = 1 8: if t>59 then sm = 1 7 

; ift>65thensm = 16 
310nextsc,bc:ifot$= "p" thenprint#4: close4 
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Compatibility And Operability 
OfTheC128CP/M + 
Operating System 



Ralph A. MorriU 
Mercer Island, WA 



©Copyrighl March 1986 



In being so busy selling ''features " CBM had dramatically 
understated the full CAPABILITIES of this Mean Machine! 



Prolog- To CBM 

In July, 1985. we purchased our firsl C-128 computer, upgrad- 
ing after three years of use of a C-64 for our routine business 
operations. We are a small R&D consulting firm dedicated to 
the propagation of the considerable talents of our principal to a 
distinguished list of clients, which includes top Fortune 500 
firms. Most of our services are conducted on large mainframes 
and minicomputers, but we have gained considerable respect 
for the capabilities of the CBM microcomputers through practi- 
cal business use of the C-64. 

Our first C-128 (July '85) was a beta unit, distinguished by a 
two column grey right border on the graphics screen, and 
improper vertical striping of all VIC output in odd color assort- 
ments, A replacement was not available until October, during 
which time, denied full use of the 64 and 128 modes, we began 
evaluating the CP/M mode. Ours was one of the first of many 
letters to CBM pointing out the numerous "bugs" and deficien- 
cies in the first two issues of the CP/M-^ operating system. 
Long telephone conversations with John Fahey, CBM customer 
relations, about our early findings resulted in a formal invita- 
tion in December to beta-test the 6 December ^85 revisions and 
CBM future upgrades to CP/M + . 

Two preliminary "Letter Reports" were submitted on a timely 
basis, allowing CBM sufficient time to respond to our recom- 
mendations. This is our final report to CBM of the results of our 
tests and evaluations. It has not been paid for by CBM. nor will 
it be. It is therefore PROPRIETARY COPYRIGHTED informa- 
tion and the property of RAMA Corporation, intended for 
public release to the media catering to Commodore computer 
users. It was submitted to CBM in March, 1986, for comment, 
as a courtesy, before formal publication. 



Introduction 

Like Christmas, there is always a sense of tense excitement 
when unwrapping your new Computer, be it the first, third or 



nth. It was July '85 and I had anticipated this moment since last 
February when the first public information releases had been 
made on the new Commodore C-t28 microcomputer. The 
decision had been made then to upgrade our business com- 
puter system with the new C-128, 1 had read everything 
available, even written a brief article about this "New Three- 
In-One'' for a local Commodore user group. 

FINALLY! It had arrived and I eagerly got it out of the boxes and 
quickly connected it to the existing peripherals (a compatibility 
unusual in itselO^ The old C-64 was laid aside, retired from its 
three years of daily fault-free service as our busy business 
computer. I connect the 40/80 column screen switching box 
(made a month earlier), then the modem, high-res composite 
color monitor, printer, and two, new 1571 "smart" disk drives. 
Now, let's see what this beauty will do! 

I doff my hat to the sage who once said '^anticipation is nine- 
tenths of the pleasure. . .",however,inthiscase, he was wrong. 
The C-128 was more than Commodore had said it would be 
(and I had read every golden word). In being so busy selling 
*1eatures'\ CBM had dramatically understated the full CAPA- 
BILITIES of this Mean Machine! It was perfect for our business 
use. and a great deal more. 

The uneasiness caused by the opening screen - which slates 
that BASIC 7.0 was Copyrighted in 1977 by MicroSoft, and 
updated by CBM in 1985 - soon disappeared as I began to try 
some of the BASIC features provided. Help, Tron, Sound, 
Graphics, Sprites and the new BASIC 7,0 commands made 
programming effortless - all greatly enhanced by the 40/80 
column screens, extended Control and ESC codes. 1 BOOTed 
the CP/M + , which I hadn^t played with for years (V 1.4 as I 
recall), and discovered a near CP/M-86 capability imbedded in 
the calls that was approaching a REAL "Operating System", 
that CP/M never was before. 

I had purchased an early beta-test unit, distinguished by a 
small brown dot under the "M" in the word COMPUTER on the 
name tag, and a grey stripe on the right side of the graphics 



c 



TfW TRMHOCIOT 



43 



Hksch 1987: ^Mum• 7, Inw OS 



screen. This one had a ROM taiill Ihat caused random character 
errors and also had a bad VIC chip. Our software worked all 
right for business use, but the graphics were vertical striped in 
an odd assortment of colors. This didn't bother me much, 
having accepted it as a high probability for one of the first units 
sold, but a replacement would not be available until October, 



Discovering CP/M + 

Denied the full use of graphics in the 64 and 128 modes of 
operation unlil a replacement unit was received. 1 concentrated 
on the fully independent CP/M mode, learning all there was to 
know about the CBM upgrades to CP/M 3.0, and ordering the 
"DRI Special Offer''. The latter is one of the best buys in the 
country, and probably the ONLY "support" we will ever receive 
from Digital Research Incorporated (DRI) for their operating 
system- The "Two Utility Disks" in this DRI offer are more than 
just that; they contain the assembly level ASM/LIB files, 
macros and object codes - plus the necessary MAC, RMAC, 
SID, ED, etc., utilities which are essential if any programming is 
to be done, or public domain software installed on the system. 
The two inch thick, three-in-one manual{s) that comes with 
these disks, also an essential, is cryptic to a fault; but I would 
hate to do without it. It sort of explains the functions (NOT the 
functional use) of the utilities and reveals the content and 
details of the BIOS. BDOS, CCP and other incorporated subrou- 
fines of the operating system. A fourth manual. ^'Programmer's 
Utilities Guide for the CP/M Family of Operating Systems" 
referred to frequently in the above manual(s), is not available 
from DRl's publisher for separate purchase. Rather than pay an 
outlandish $75 for repeated purchase of the manual(s) materi- 
als, I recommend the Osborne/ McGraw-Hill CP/M Users 
Guide. Third Edition, CBM's Manual and Programmers Guide 
should have eliminated this serious problem, but did not. 

The first thing to do when starting any new system is read the 
File Headers and DOC files. The HELP file on the first distribu- 
tion disks serves as a reference until the "DRI Special Ofier" 
arrives - although it is just as cryptic as the DRI manual(s). 
There is nothing you can do with all these files until you obtain 
some applications software or the essentia! utilities for pro- 
graming contained in the DRI utilities disks. You're stuck. 
except to study what you have on the original distribution 
disks, and try them out against each other. Furthermore, the 
first two CP/M+ issues by CBM did not permit a required 
DEVICE assignment to a modem {RS232 Port) - and thus NO 
telecommunication and down-loading of applications pro- 
grams is possible. Remember, the big sales pitch by CBM for 
the CP/M+ operating system was the "Free Software" availa- 
ble in the public domain - now inaccessible. 

Discovering Problems In CP/M + 

I tried the simple exercises of the CP/M + operating system and 
utilities and fortunately, all the ufili!ies DID work properly (1 



have a few choice words later to describe my feelings about the 
archaic SID and ED file editors). The first, most obvious prob- 
lem discovered was that the printer would not properly copy 
(echo) the screen, no matter what I did to the interface configu- 
ration switches. This was later revealed to be a problem within 
the interface (it works fine in 64 and 128 modes) that was not 
designed to handie the eight-bit ASCII or PET-ASCII codes 
(nulling the high-bit), and was "coloring" the printing with odd 
"soft-returns" mid-line and mid-word. I also had some ran- 
dom graphics and font switching codes being sent to the printer 
at carriage-returns. Asking others about their printer problems 
revealed that only the Cardco Plus and Pius-G interfaces did 
not have all these CP/M-+- problems, although upper-case 
characters were still being printed in italics. I had to get rid of 
the PET-ASCII and print with the interface in transparent 
mode. 

Further testing revealed that, although the intent of CBM was to 
default (Boot) the system in an ADM-31 terminal configura- 
tion, the BIOS KEYCODEs were wrong, resulting in a keyboard 
that, at best, was an ADM-3A terminal configuration plus some 
odd ESC codes unique to the C-128- The Console Command 
Processor (CCP) was also deficient, and trying to install and run 
commercial applications software was, in many cases, a disas- 
ter. In some, the opening screen and menus were in all 
graphics characters (the alternate key-set produced by ESC-G- 
1) or resulted in a resounding CRASH because they wrote 
buffers into high memory overwriting the CCP. Furthermore, 
random character errors kept showing up on the screen and 
printer outputs, along with double characters. From this some 
of the most annoying and unpredictable crashes resulted. At 
that fime I was compelled to advised CBM of my consternation 
and frustrations. My letter was not complimentary; I learned 
later that it had been read to the Board of Directors and 
circulated to CBM management. The reply (I actually got one) 
was from the CBM legal council denying all responsibility, 
(Naturally! That's what he is paid for.) 

When the "DRI Special Offer" finally arrived six weeks later, 
the READ-ME file was not the least bit illuminating, but the 
MAKER0M.DOC and MAKESYS,DOC files did guide me 
through the exercises of assembling and linking the object 
codes that fill these disks, DO NOT try to make sense of the file 
names and headers with the DRI manual(s) - there is NO 
CORRELATION between these, {this information should have 
been in the READ-ME file, according to the DRI Manual), This 
lack of correlation was the source of enormous frustration to 
me and my innate compulsion to MAKE IT WORK! The second 
curiosity was that although the MAKESYS exercise did, in fact, 
assemble and install a new (and supposedly improved) CP/M -n 
system, ALL the faults discovered in the first issue prevailed - 
including the denial of use of a modem for down-loads. In 
addition, the MAKEROM exercise dead-ended with a set of 
BIOS"CXROM. . .."files of absolutely no utility or reason, since 
they had already been included in the MAKESYS files under 
other/different object code file names. DRI refused to answer 
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my questions, sending me back to CBM^s hol-line mummies. 
The author, finally reached directly, admitted to me that this 
mess was intentional, not an accident or oversight. In the 
process of developing these files. It does provide us with a fairly 
complete set of the CP/M + object codes, and we may all be 
grateful to him for these in any future upgrades of our CP/M + 
operating system. 



Invited To Beta-Test CP/M+ Revisions 

1 tried using SID and ED to find and make corrections to the 

CX ASM files that governed the functions that were faulty in 

the BIOS/BDOS/CCP codes, and decided this was an exercise 
in futility without very extensive study. Did you ever try to edit 
someone else's code, on a limited display screen, without 
seeing the cursor position and without having full screen edit 
capability; it is AWFULII Furthermore, some of the most dra- 
matic crashes imaginable resulted from these efforts, resound- 
ingly slapping my sensitivities as to my own capability as a 
programmer (now seriously in doubt). Once again, I let CBM 
know about my concern and frustrations with this situation, 
and was invited to help constructively solve them as a "Beta- 
Tester" for the third issue of CP/M + which was alleged to solve 
all these problems. It would accommodate the modem, RAM 
disk and other DEVICE assignments, and much, much more. 
Having already developed a small affection for this "Mean 
Machine" - I agreed to beta-test the CP/M -i- revisions. 

This latest CBM revision of CP/M-h (6 Dec. 85) for the C-128 
was to be a fully corrected version, removing of all the faults 1 
had cited above. It would now allow modem (RS232 port) 
operation in CP/M for down-loading software that would make 
the beta-tests a significant exercise, and covering a wide range 
of utilities and applications software. 1 immediately sent some 
38 letters to all the top CP/M software suppliers (very few of 
whom responded) for test samples. I also promptly down- 
loaded (in 1 28 mode) and converted the public domain release 
of the 4 Dec. CP/M -i- BIOS, and went to work in getting a first- 
class terminal (MODEM?) program up and operating. Finding a 
properly overlayed IMP244.LBR (which I highly recommend, 
by the way) was a bit of a struggle, but it had just been made 
available on CompuServe. My down-loading began, and over 
the next few weeks ~ while waiting for CBM to send me the 
Beta-Test issue of the CP/M-i- BIOS - 1 accumulated an 
outstanding set of utilities and software. 



The First CP/M + Revision 

The disk that arrived from CBM in January was folded into a U 
and stuffed into our postal box. With heart-sick feelings about 
the condition of the disk (and a bitter word or two to the 
Postmaster). I hurried back to the office and was pleased to find 
I could gently unfold it and use the disk in the 1571 drive - 
copying everything promptly to a new disk, just in case. 



Along with a new CPM + .SYS file was a SCREEN40.COM file 
that 1 investigated immediately. This little ditty solved several 
serious problems. It turned off the 40-column screen and 
completely eliminated the random character errors experi- 
enced above, particularly in 1200 baud modem transfers. The 
source was thus revealed for at least one of the faults in the 
CCP/BIOS - although SCREEN4D is no more than a Band-Aid 
for more serious problems that were still internal to the CP/ 
M+ operating system. My down-loads from the BBSs would 
now be clean of random errors that plagued our first test 
software. About the same time, the C-128 "^Configurator" 
CONKCOM and its menued HLP file became available on the 
public domain. With the proper settings of the O.S. using 
C0NF.COM, and the printer interface set transparent to eight- 
bit ASCII, my Star Delta 10 printer properly receives and prints 
the direct ASCII codes without interference from the interface. 
Calling CONF PRTl =ASCil turns off the PET-ASCll conver- 
sion (that has been fouled up in the CP/M + codes) needed for 
CBM printers. Calling CONF 40COL-OFF turns off the 40 
column screen (like SCREEN40), goes to two megahertz, and 
gets rid of most of the random character errors at 1200 baud. 
and double keying problems. There is a full menu of other 
configuration control and set-up calls in C0NF.COM. as well 
(see below) that provides the needed configuration control of 
the system - including screen colors. The controls provided by 
C0NF.COM are REQUIRED for the successful use of the 6 
December issue of CP/M 4- . They are only a Band-Aid "fix". 
however, to the many serious problems that are still imbedded 
in the CP/M + source codes. 

With the improvement of the printer operation (by setting the 
PRT1=ASCII in C0NF.COM), I realized my first real success 
with echoing the screen and running several NLQ font pro- 
grams that bit-map output to the dot-matrix printer. 1 use the 
"CBM emulate mode" of the interface only in 64 and 128 
modes now, with the software designed for CBM printers. With 
the beta-test CP/M-f you must still configure commercial 
software for the ADM-3A terminal configuration, and thus are 
denied use of the full keyboard features and the much faster 
screens of ADM-31 terminal operation. Since this is not a 
hardware problem, but a fault of the CP/M h- codes, we should 
expect CBM to properly correct this problem. Several of the 
commercial and public domain software packages evaluated 
require that the CCP be overlayed or made a PRL (program 
relocatable) file to work with their resident commands. As the 
CCP MUST be reprogrammed to correct remaining errors in its 
codes. WE NEED an assembly level copy of the CCP (i.e. 
CCPASM or CPR.ASM) to successfully run this excellent new 
software. Several Z80 disassemblers I have tried crash the CP/ 
M-H O.S, - although nearly all CP/M 12 or 3,0 commercial 
software and utilities run great on the C-128 (in ADM-3A 
terminal mode with the Band-Aids affixed to the O.S.). 

Not one piece of Osborne software from the First Osborne 
Group's (FOG) public domain library that 1 have acquired will 
run on the C-128. Yet nearly all CP/M-80 software from the 
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SIG-M Library, and so called "vanilla" programs (i.e. wilhout 
special machine unique calis imbedded) down-ioaded have 
properly run. (I do not recommend thattheC-128CP/M+ be 
reconfigured to accommodate Osborne software - even the 
Osborne Executive's CP/M 3.0) All Osborne, QX-10 and Kay- 
Pro disk configurations DO load and copy properly (even 
between disk formats) with the 1 57 1 disk drives. As a matter of 
fact, the 1571 is remarkably fast and fault free in the CP/M 
mode (although we cannot say the same for the 128 mode 
where the DOS fails periodically). Although our C-128 unit 
does have the infamous "shifted-Q" problem, our C-64 soft- 
ware is 100% compatible. Even the fully loaded Flight Simula- 
tor II will run without having to disconnect the printer interface 
and cassette ports (thanks to CBM for cleaning this mess up). 



Software Reports: Successes 

The following abstracts are briefs of the software 1 have tested 
that does operate successfully on the C-128 (under the certain 
conditions stated above and with the band-aids) with the 6 
Dec. beta-test issue of CP/M + , We anticipate that CBM will 
make all necessary changes to the BIOS and CCP, and correct 
the remaining faults discovered in the codes, for the final 
release of the upgraded CP/M+ operating system scheduled 
for May of this year (now 5 months late). I wilt not belabor this 
point further here. Only positive results are presented below, 
but rest assured, there were many failures. 



Modem Programs - Public Domain 

MEXI14,LBR" Contains an excellent terminal program (needs 
jump table edits to work on the C-1 28). A full set of utilities and 
large set of overlays for various systems and modems are 
contained on several disks. The C-128 overlay has been 
installed on one version available on local BBSs, but only for 
the CBM 1670/Hayes modems. It is loaded with set-up con- 
trols and toggles, for those who like this feature, and will batch 
transfer in several protocols that include CompuServe's. It is 
very well documented and available on SlG-M Library Vol 
*218. 219, 220 and 241. 

[MP244.LBR - Another excellent terminal program with all the 
features of MEX - but most are automatic and transparent to 
the user. It also will batch transfer 1 28, 256 and ! K Byte Blocks 
and has KMD or XMODEM (Christensen) protocols. 1 much 
prefer this one (it's fool proof), and have recommended that 
CBM license it and adapt it to all CBM modems. There is an C- 
128 overlay (I2C8-LOVL for the 1670)andaconverted version 
(IMP-128.COM) available on most local BBSs. The needed 
utilities are included only in the LBR file, so get both. It is very 
well documented, but the overlays must be ordered from the 
author. 



Utilities From The Public Domain 

C0NF.COM/HLP - The C-128 configurator These files MUST 
be on the CP/M-*- update disk. It was released to the public 
domain on 2 1 Jan. 86 by the author, Von Ertwine, and has been 
a life-saver. The command and help file support the set-up of 
system: 

- 40COL : toggles on/off the 40 column screen (and elimi- 

nates random character errors). 

- BAUD : sets the baud rate for the RS232 Port. 

- BACK/BORD/CURSOR : set colors on the screen. 



-DATE 
-DRV 

-DUMP 



-FEEL 
-HELP 
-MAP 
- PARITY 
-POKE 



: sets system dale and time. 
: assigns disk drive device numbers to A:,B:. etc, 
: dumps 16 bytes of memory from ROM in hex 
from a selected address. 
: sets key scan frequency, 
: types the help menu and instructions 
: maps the keyboard assignment by KEYFIG. 
: sets byte character (ie 8/N/I , etc.) 
: pokes a hex code into memory at selected loca- 
tion. 

- PRT{1 or 2) : sets printer output to ASCII or PET-ASCII and 

selects character set. 

- REPEAT : toggles repeat keys on or off. 

- VOL : sets audible key-click volume level. 

NULU151.LBR - Menued and well documented LIB file utility. 
Makes and un-makes libraries with squeezed files. Has fea- 
tures for reading, extracting, squeezing/un-squeezing, making 
and erasing files. You will want to find the COM and DOC files 
separately to get started (or get USQ.COM and DELBR.COM 
files to open this LBR). 

NUSWEEPl 07.LBR - Library file utility with some features not 
found in NULU. Well documented and menued for ease of 
operation. Actually, both are needed and compliment each 
other. Both will allow indexing of files and in one "sweep", 
extract only those files selected - un-squeezing as it goes. 

USQ/DELBR/BISHOW.COM - A nice set of individual LIB file 
utilities contained on all SIG-M Disks. Unsqueeze/ Extract (ie 
de-library)/ Read files in squeezed or un-squeezed format, 
respectively. BISHOW (or QSHOW) out performs the TYPE- 
,COM utility on the CP/M + distribution disk. 

CPM3UT1LLBR - Excellent set of CP/M+ utilities found in 
SIG-M library volume 234. Contains the following: 



- DISKSrOM 

- EDITS, COM 

- IMAGE.COM 



: full directory listing and available space. 
: Text-editor enhanced over ED. 
: track by track disk copier^ any disk for- 
mat. 

- PASSW0RD.COM : to protect the CP/M-f System in PRO- 

FILE. 

- UNL0AD.COM : converts binary file to Intel hex file. 
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-VERIFY3,C0M 

- DISKED3.COM 

- WRTSYSCOM 



: checks all disk sectors - any format, 
: menued sector editor for direct read/ 

write. 
: writes boot to system tracks of disks. 



UNERA + .LBR - Poorly documented, it restores erased files. 

SUPERZAP.LBR - Full-screen disk editor, with menus. 

CPM3-CATXBR - Disk catalogue maker. 

BRADFORD. LBR - NLQ printer software like fancy font. Few 
fonts, not documented, "freeware", but wortti it. 



Commercial Software Tests 

WORDSTAR 3.3 - Latest version of the word processor stand- 
ard. Do not bother with earlier versions. Good books are 
available to cover documentation needs, 

WORD FINDER - Thesaurus for use with WordStar. Excellent 
to check for spelling as you type the document. 

SUPERWRITER - Fine word processor with spell checker and 
dictionary. Works with SUPERCALC2 to print full reports. 

SUPERCALC2 - Great spreadsheet software that has Data File 
Format Converter included for CP/M-86/80 formats. Works 
with SUPERWRITER to produce full reports. 

FANCY FONT - Excellent NLQ printer software in many type 
styles and almost any ASCII file format. A very large library of 
fonts are available, in sizes from 4-72 point. Very well docu- 
mented, bit-mapped and SLOW!! 

TWIST & SHOUT - Sideways and banner printing utility for 
dot-matrix printers. Few fonts compared with print shop. 

TURBO-PASCAL - A must for any CP/M + system. Compiler, 
editor and other utilities. Makes the public domain T-Pascal 
software useable. 

C/80 3. l&I^ATHPAK-C compiler and utilities for C language 
programming. Well documented and recommended. 

GAMES - We tried ZORK IL Adventure 80. SNAKE. ELIZA and 
some of the other CP/M text games, with some limited interest. 
Not as exciting as the C--64/ 1 28 arcade games, to say the least, 

COMPUTER CHEF - The main software of a set of four recipe 
disks and meal planners. As an amateur chef 1 liked it, particu- 
larly the Chocolate Bytes Library. Auto-sizes recipes to the 

number of guests. 



ZCPR3.LBR - I'm still in the process of evaluating this MAS- 
SIVE set of files (seven disks hill) to replace the CP/M CCP and 
expand the limited capability of the operating system, Dramati- 
cally! It was written for CP/M 2.2. and will take a great deal of 
time to install. I will report on this separately, later. I HIGHLY 
recommend that CBM take a long and serious look at this 
outstanding option. 



Wrap-Up Of This Report - To CBM 

We have taken the process of beta-testing of the CP/M + 
upgrades to their lexical conclusion consisting of the preceding 
series of recommendations to CBM for needed correction of 
several problems. The software tests are by no means com- 
pleted, but will continue and be published as appropriate for 
unique software packages made available. 

Our recommendation that CBM fully investigate 2CPR3 imple- 
mentation is taken seriously by Exchelon in California; it has 
promise of making a Magnificent Monster out of this "Mean 
Machine". The original CCP is a mess inherited from an archaic 
CP/M concept. With its replacement, ZCPR3, the capability of 
theC-128will be greatly expanded to include; shells, aliases, 1/ 
redirection, flow control, named directories, search paths, 
custom menus, multi-command lines, many resident com- 
mands, and much more! With it we will realize the UNIX-like 
operating system capability from this microcomputer that ex- 
ceeds any other available on the market today in this price 
range. A **Much Higher Intelligence - at a Much Lower Price ' - 
indeed! 

On the hardware front, we do highly recommend that an 
expansion package be made available, from CBM, to add two 
more banks of 64K bytes of RAM/ROM in the "empty socket". 
The upgraded CP/M + BIOS should accommodate this capabil- 
ity. Your promise of a GEM capability will thus be realized, and 
the full utility of the C-128 for us, the business community of 
users, will be greatly enhanced. 

We have enjoyed performing this extensive research and 
evaluation exercise for CBM, and their loyal following of 
Commodore computer users. We have reo^nized the enor- 
mous potential of the C-128, better than most; perhaps better 
than CBM at this time. 
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Assembling Assemblers 



Chris MiUer 
Kitchener, Ontario 



Chris Miller is the author of the Buddy System-128 
and Buddy System-64 Assemblers from Pro-Line, 



Writing an assembler is like no other programming activity. !t 
has its own peculiar set of rewards and challenges, i would like 
very much to pass on some observations, experiences and 
solutions to readers who have decided lo do their own from 
scratch or to build on the Symass assembler as published in 
Transactor. 



is output and it isn't until you go to assemble version 12.6 (or 
even much later on) that everything actually blows up in your 
innocent but startled face. So keep a few of the older genera- 
tions around awhile, eh. 



BASIC'S Terrible Tokenizer 



It's Alive 

Keep archives. Don't be in too big of a hurry to update 
everything. Unlike almost any other type of program, an 

assembler lives; it creates itself. Accidently killing it can leave 
you in a most peculiar bind. 

Suppose you've got several up-to-date backups of version 12.3 
when you discover a tiny flaw in your error checking. No 
problem; the fix is obvious and after making it you quickly re- 
assemble new version 12.4. In your excitement over having 
finally taken out the last bug (again) you replace all your old, 
slightly imperfect 12.3 source and code with your new, at-last- 
perfect 12.4 stuff. Six minutes later you think of a great new 
command to add. It's an easy update: a flag, a pointer, a little 
code. . . but when you go to assemble it every single line of 
source gives rise to an INVALID MODE OF OPERATION! error 
message. You see, you forgot to include a crucial RTS when you 
repaired the last version. 

Panic sets in (as well it should). There are so many custom 
macros and features in your source by now that no other 
assembler can touch it. If you're lucky you may find an old 
version 6.1 tucked away that you forgot lo update way-back- 
when that, although far from perfect, can still do the job. 
Otherwise, you may have to spend a couple of days bringing 
your source down to the level of whatever assembler you 
started with and working your way up again. 

It is also possible to have only wounded version 12.4 so that, 
even though it seems to work, inaccurate code for version 12.5 



If you want to be able to write your source on the Basic editor, 
sooner or later you are going to have to do something about 
tokenization . It is not enough to simply change the appearance 
of mnemonics like EOR, AND and ORA and to tell people to 
use $DEE+ 1 instead of $DEF. Consider the following perfectly 
legal source lines: 

20 remove = * 

30 testdata ora #8 

40 newdata jmp nevi/line 

In line 20 the " = " and "* " would hold their ASCII instead of 
their tokenized values so that your assembler would not recog- 
nize them. The ORA would not be tokenized by the editor in 
line 30 so that your mnemonic lookup routine would never 
find it. Even though NEWLINE was defined, line 40 would give 
rise to an UNDEFINED SYMBOL error. If you are not going to 
un-tokenize source before assembling then you may not use 
"REM" or "DATA" in any symbol name. 

Personally, 1 have tried everything to get around BASIC'S 
idiosyncratic tokenizer. including trying to live with the above 
restrictions, placing all source within quotes and monkeying 
with the editor itself, none of which proved satisfactory. 

The thing lo do is really not all that difficult: every line of source 
must be un-crunched into a buffer by the assembler before 
parsing. There is a Basic routine to do this and it is actually very 
fast. The time lost in un-crunching is also compensated for by 
the fact that you can now index source lines with both the .X 
and ,Y registers and that absolute addressing modes are faster 
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than indirect. This also removes all restrictions imposed on 
your source by tokenization, makes your assembler easily 
compatible with ASCII formats, and opens the door lo disk 
based assembling and easy display handling. 



else (branch left) 
entry" ptr = left' ptr 
gotocompare'next 



Look-Up Look -Outs 

The Symbol Table. 

The most time-consuming aspect of any assembly (excluding 
1/0) usually involves building and accessing the symbol table, 
A common structure involves alloHing a fixed number of bytes 
tor each symbol (usually eight) plus two for the value and 
stacking entries one-on-the-other (usually in a downward 
direction) in memory. The advantage lo this system is simplic- 
ity but there are two major drawbacks: 

1. It can be very slow, especially once you begin chaining 
source files and symbol tables become very large. If you do re- 
definition checking (almost a must) or phase alignment check- 
ing on pass two. a large, sequentially organized symbol table 
will slow things down even more. 

2. Symbol names must be restricted in size{! find eight to be not 
quite enough) or a good deal of space must be wasted by 
constantly providing for longer symbols. Consider variable 
length entries: let the first byte of each entry represent its size. 
You will be able to support unique symbols of any length and 
conserve memory loo. Of course, speed will not improve- 
To really speed up the old assembler, try organizing the symbol 
table like a binary tree. Each entry will, in addition to the name 
and value, require space for two pointers (four bytes). Follow- 
ing is some pseudo code for placing a symbol in the table. 

put'symbol 

initialize entry' ptr (to root of tree) 

compare'next 
compare new symbol with entry 

if same then re-definition error 

if before (in alphabet) 

then 

iflefl'pointer = nil 

then (not in table) 
left'ptr = end'of^tab!e'ptr 
gototack'on'entry 



else (comes after in alphabet) 

if right'ptr = nil 

then (not in table) 
right'ptr = end'ot'tabte'ptr 

gototack'on'entry 

else (branch right) 
entry'ptr = right'ptr 
gotocompare'next 



tack'on'entry 
put new entry at end of tabte 
new left/right ptrs ^ nil 
update end'of'table'ptr 
return 

There are probably quite a lot of ways of coding the above idea 
in assembler; far be it from me to deprive you of the pleasure. It 
will usually be necessary to examine only a small portion of the 
tabled symbols to find one or determine that it is undefined. 
For example, if you were trying to find ZEEK in the table and 
the first entry you compared it to was OTIS, then you would 
never have to check any entries which came before OTIS in the 
alphabet after that. Speed of access makes a binary symbol 
table structure worth a few extra bytes of overhead. 



Command Look-Ups 

As with symbols, there are many ways of organizing the 
instruction data. A sequential list of fixed length entries is again 
the simplest, but also the slowest and the greatest waster of 
memory. It is slow because any three- character symbol will 
require a complete search of all the mnemonics from ADC to 
TYA before you can be sure that you do not have a command. 
Even if you try to keep the most popular instructions towards 
the top of the list, it will often be necessary to scan through 50 
or iOO of them until you hnd the one you're after. It's a waste of 
space to follow each mnemonic, especially the inherent ones, 
with a whole slew of filler bytes representing invalid modes of 
operation surrounding usable op-code byte(s). 



Pointers lo Lists 

Consider following the mnemonics in the look-up table with a 
couple of address pointers: one pointing to a list of valid modes, 
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the other pointing to a corresponding list of op-codes. Attach a 
(symbolic) value 1-12 to each mode. Suppose the assembler 
runs across the statement LDX (PTR),Y which we all know can't 
be done. Parsing the operand portion determines that indirect 
indexed is being used. The mode'pointer list for LDX, however, 
does not contain the value (e,g- 4) for this mode. You know this 
as soon as you skip past from zero page (e.g. 2) mode to 
absolute {e.g. 6) or the end-of-lisl flag (e.g. $ff) is reached. 

All of the inherent commands wil! point to the same two-byte 
list of valid modes {e,g. 1 . $ff). Many of the other command.s will 
share the same list of valid addressing modes as well. Of 
course, the opcode'ptr for each mnemonic will point to a 
unique list of op-codes, however, no filler bytes will be re- 
quired because this list will correspond exactly to the list of 
valid modes. If the mode value you were looking for was third 
in the mode list, then the op-code you should use will be third 
in the op-code list. Let's do something with some of the 
memory you just saved. 



Much better of course would be to have your command actually 
open a file itself on pass two and if necessary close the previous 
one. This way more than one object file can be created at once, 
and if there is an error on the first pass, you can stop before the 
file is created. Reading the error channel and always closing 
files is also polite. 



Hidden RAM 

Bet if you take a hard look at the Basic ROM routines youVe 
using, you'll find that you can re-create and even improve on 
them yourself. Then you can put your assembler under Basic 
Rom from $AOOO-$BFFR You41 need to turn bit-0 at address I 
off and on from a safe place before starting and after finishing 
an assembly. You could also put a C-64 FARJSR relay routine to 
call Basic and Kernal ROM from their underlying RAM. Maxi- 
mize the amount of RAIU free for source, symbol table and 
testing. 



Pointers to Pointers 



You're Hooked 



Instead of one huge list, try breaking the mnemonics down into 
a bunch of small lists based on the first letter of the command. 
When you go to look up JMP, the value for ''J^' can quickly be 
converted to 9 (e.g. LDA *" J" :SEC:SBC *"A^:AND *15). 
Indexing a list of low byte and another of high byte pointer 
values by this should provide you with a pointer to the list oi 
mnemonics which begin with the letter "J" {two in this case). 
You'U never have to look through more than half dozen or so. 



Once you've come this far, there is no turning back. You're 
bitten. What about a command to cause a specified source file 
to be loaded into memory before continuing from the top. After 
all. you can't expect to keep all of your source in memory at 
once forever (even in the 128). Or what about commands to 
Load and Save symbol tables for immediate use by the assem- 
bler as an alternative to the above sort of chaining. What about 
conditional assembly? What about MACROS? 



There other ways of massaging the 6510 mnemonics to pro- 
duce even more, smaller tables for even faster hash accessing. I 
challenge anyone to come up with an algorithm that will 
generate a unique, one byte value for every standard 6510 
mnemonic. 



Writing an assembler can be a very useful, educational and 
even profitable experience, I wish you success. 



Output To Disk 

Sooner or later it will become necessary to direct your output to 
disk. For one thing it is not always possible to assemble your 
code to the memory that it is destined for. An assembler 
attempting to assemble itself to memory will overwrite code 
that is being executed; risky business. 

The easiest way to send everything to disk is to open the file 
from Basic before the assembler takes over via 5 OPEN 5.8,5. " 
0:NEATCODE.P.W for instance, and then just use the Kernal 
$FFD2 (Chrout) from within the assembler. Be sure to aiso send 
out the value of the program counter before the first byte is sent 
if you want to LOAD" NEATC0DE\8.1, It is a small matter 
indeed to create a command to set a flag which will tell the 
assembler what to do with the object code on pass two. 
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Structured Programming 
on the Commodore 64 



Frank DiGioia 
Stone Mountain, Georgia 



The power of Pascal with the ease of BASIC 



This article presents a BASIC language extension which will qIIow you to write 
structured, Pascal-like programs in BASIC 2.0. This exciting copobility will make it 
possible for you to use your C64 to write programs for school, business and other 
situations where normal, unstructured BASIC is traditionally considered inappro- 
priate. 



There is a lot of talk these days about structured programming. 
You won't find a computer science department in any school that 
doesn't emphasize the importance of such programming tech- 
niques. Structured programming isn't just limited to universities, 
however. Most large corporations require that all of their Informa- 
tion Systems employees use structured design and programming 
techniques in all of their work. 

Well, with all the emphasis being placed on structured program- 
ming, it makes sense that you might want to practice some of these 
techniques on your own computer at home. Unfortunately, it is 
very difficult, if not downright impossible, to implement structured 
programs on the Commodore 64 due to the limitations of BASIC 
2.0, In order to allow you to practice structured programming on 
your C64, I've designed a BASIC extension program which will 
implement some commonly used structured programming com- 
mands on your 64. Before going into a description of these new 
commands, however, 1 should describe exactly what I'm referring 
to when I speak of structured programming. 



TOP DOWN DESIGN 

The two most important concepts in structured programming are 
TOP DOWN DESIGN and MODULAR PROGRAMMING Very 
briefly, top down design refers to the idea of taking a task and 
breaking it down into smaller subtasks. These subtasks are, in 
turn, broken down further into more subtasks until, ultimately, the 
program is completely written. Top down design can be used in 
implementing programs in any language, including assembler. 
The essential idea of top down design is that you start writing a 
program by designing the MAINLINE program first. This program 
should consist almost exclusively of calls to subroutines. The next 
stage in the process is to design the subroutines which are called 
from the mainline program. Each of these subroutines should be 
like a mini-mainline program in itself consisting, perhaps, of 
several smaller subroutines. The word MODULE is generally used 
to refer to a subroutine and its subordinates which carry out one 
well-defined task for the main program. 



MODULAR PROGRAMMING 

The principle goal of MODULAR PROGRAMMING is to produce a 
program which is made up of well-defined MODULES which can 
be plugged into and pulled out of your program as needed without 
affecting other unrelated parts of the program. Each module 
should have only one entry point and only one exit point. With a 
modularly designed program, you can add modules or completely 
rewrite existing modules, without affecting the rest of the program 
as your needs change. Modular design is most important for 
business programs that are constantly mutating as the needs of the 
business change. As an individual user, however, you might use 
modular programming techniques to make your programs more 
compatible between machines by grouping machine dependent 
instructions into modules rather than having them sprinkled 
throughout the program. For instance, suppose you write a huge 
program on your C64 to compute your income tax and later decide 
that you want to implement the program on an IBM PC, If the 
program is well designed, you would probably only have to rewrite 
the INITIALIZATION module (which would open all files, set 
machine dependent parameters, etc.), the READ module (which 
reads from disk) and the WRITE module (which displays data to 
the screen or printer). Most other modules in the program could 
probably remain unchanged. Vou should note also that as tax laws 
change, you would only need to rewrite the modules affected by 
any given change from the current laws. 



STRUCTURED PROGRAMMING 

This bring us to the final point - structured programming. Every- 
thing I've mentioned so far has been merely conceptual. The ideas 
weVe talked about have only to do with the DESIGN of a program. 
Structured programming is the IMPLEMENTATION of these ideas 
of top down design and modular programming but with some 
additional rules to make program logic easy to follow, thus making 
programs easier to debug and maintain. These additional rules 
include severely limiting the use of the GOTO statement, indent- 
ing program text so that the nesting of loops can be clearly seen 
and giving meaningful names to called program modules. 
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Clearly BASIC 2.0 is not well suited for the kind of programming 
described above. This is, of course, the reason that I'm presenting 
the program that accompanies this article. The new commands 1 
am including here wiii allow you to write code which, for the most 
part, conforms to the rules of structured programming. The com- 
mands 1 am including are similar to those you will find in 
structured languages such as Pascal, COBOL, WATFIV and C. 
(They most closely resemble those found in Pascal and WATFIV). I 
chose these structures (WHILE/WEND, IF/THEN/ELSE, 
REPEAT/UNTIL. CALL/PROC, etc) because they so readily adapt 
themselves to the concepts of structured design. While 1 can't give 
you a course in how and when to use these structures, I will 
describe what each one does and leave you with examples of their 
usage. As you program using these commands, their usage will 
become natural to you and you will begin to appreciate their value. 

if you already use a language such as Pascal on your 64 you will 
appreciate having these structures available for use in the interpre- 
tative environment of BASIC. The ease of debugging in the BASIC 
environment will cut your program development time down 
dramatically from whal it was when you had to load an editor, 
compiler linker and object module every time you needed to 
make a change in your program. 



USING THE NEW COMMANDS 

To use these new commands in your own programs, simply type in 
the BASIC Lxtader (LISTING 1) and activate the extended BASIC 
with SYS 49 1 52. Here's a description of the commands available to 
you: 

EDIT — This command causes the C64 editor to view the SPACE 
as a valid character. This feature allows you to indent your 
program lines to clearly indicate nesting level (see the example 
program). This indentation is part of structured programming 
syntax. WARNING! When in EDIT mode you must eliminate 
spaces from any direct mode commands (except when in quotes) 
or a syntax error will result. Also, you should not type a space after 
the line number when entering program lines in EDIT mode. Edit 
mode is automatically turned off when you RUN a program. 

KILL — This command will manually turn off EDIT mode. 

BAS1C2 — This command will disable the extended commands 
and return you to BASIC 2.0. Commands can be re-enabled with 
SYS 49152. 



CALL/PROC — The CALL statement works exactly like GOSUB 
except that you CALL the routine by name instead of using a line 
number. This allows you to assign meaningful names to program 
modules. The word PROC is used to mark the beginning of a 
subroutine (PROCedure) and must be the first statement on the 
line (No spaces may precede the word PROC - see error *6}. A 
procedure is ended with the word RETURN. 

10FORU1 T010 

20 CALL OUTPUT 
30 NEXT I 
40 END 
50: 



60 PROC OUTPUT 

70 PRINT "OUTPUT CALL #■;! 

80 RETURN 

REPEAT/UNTIL — This structure is quite similar to the FOR/ 
NEXT loop except that instead of counting, like FOR/NEXT the 
REPEAT command repeats a block of instructions until some 
condition becomes true. 

10 REPEAT 
15 X = X+1 
20 PRINT X 
30UNTILX>= 10 

WHILE/WEND — Clever use of the WHILE statement can elimi- 
nate a bunch of GOTOs from your code- It repeats a block of 
instructions WHILE some condition is true. The WHILE statement 
is similar to the REPEAT statement except the condition is checked 
BEFORE the loop is entered, REPEAT/UNTIL and FOR/NEXT 
loops, on the other hand, always execute the body of the loop at 
least once. 

10OPEN2,8,2,"TESTFIL.S" 
20 WHILE ST = 

30 GET#2.A$ 
40 PRINT A$; 

50 WEND 

The above code will read a sequential file and display it to the 
screen. 

EXIT — You probably know that it is illegal to exit a FOR/NEXT 
loop or a subroutine with a GOTO statement in BASIC 2.0. For the 
same reasons, it is illegal exit a REPEAT/UNTIL loop, a WHILE/ 
WEND loop or a PROC with a GOTO statement. H a condition 
arises such that you must make an "emergency' exit from one of 
the above structures, use the EXIT command. It works exactly like 
a GOTO except that it cleans up the stack before it GOes. 

The EXIT command is intelligent. That is, you don't have to tell it 
what kind of loop or structure you are EXITing. W can figure out by 
itself whether it is EXITing a FOR/NEXT, REPEAT/UNTIL, GO- 
SUB, PROC or WHILE/WEND structure. You can only EXIT one 
structure at a time. Thus, if you are nested three levels deep, you 
must only exit one level at a time (reason: For maximum flexibility 
the EXIT command only cleans one data set off the stack at a time). 

10 X = 1:INPUT ■ ENTER AN INTEGER ' ;K 

20FORUKTO1STEP-1 

30 X - X»K*RND(0) 

40 IF ABS(X} > 1 E7 THEN EXIT 90 

50 PRINT "X = ';X 

60 NEXT 

FINAL RESULT; ";X 



70 PRINT 
80 END 
90 PRINT 
95 PRINT 
99 PRINT 



**•■• ERROR *•**■ 
NUMBER TOO LARGE 
TRY AGAIN ':GOTO10 



IF/THEN/ELSE — This simple one-line IF/THEN/ELSE allows 

you to choose between two actions based on a conditional state- 
ment. 
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IF ABS(X)<1 THEN CALL NEWTON;ELSE CALL GAUSS TECHNICAL NOTES 



That is read "U »he absolute value of X is less than one, CALL 
NEWTON. Otherwise. CALL GAUSS/' 



ERROR MESSAGES 

Since this extended BASIC is intended (o be used in real-life' 
programming a full range of diagnostic error messages are in- 
cluded to aid in finding program bugs. Here is a list of the messages 
and the probable cause of each one, 

'I UNTIL WITHOUT REPEAT (Either you left out the REPEAT 
statement or you have improperly nested program structures. 
Could also be caused by improper use of the EXIT command.) 

'2 WEND WITHOUT WHILE (see *1) 

^3 WHILE WITHOUT WEND (Your program has less WEND 
statements than WHILE statements. See also *L) 

*4 MISSING LOGICAL EXPRESSION (The word WHILE or 
UNTIL was not followed by a logical expression,) 

*5 NO STRUCTURE TO EXIT (Attempted to use the EXIT 
command outside of a structure. Could also indicate a problem in 
program flow. For example a GOTO whose target is inside of some 
structure.) 

'6 PROCEDURE NOT FOUND (Either no such procedure 
exists or the word PROC was not the first word on the line. Make 
sure there is not an extra space at the beginning of the line before 
the word PROq 

■•7 OUT OF MEMORY (This indicates either very deeply nested 
structures or problems in program flow. It usually occurs when 
structures are not properly exiled.) 

*8 PROC WITHOUT CALL (Means you left off the END 
statement before your procedure block. Also, could indicate prob- 
lems in program flow,) 



EXAMPLE PROGRAM 

The example program at the end of this article doesn't do anything 
extremely novel and isn't the best example of structured program- 
ming but it DOES use all of the new commands included In this 
extended BASIC. When you run the program it will give you the 
option of reading a disk file or creating a disk file. If you choose to 
READ a file, you will simply be asked for a filename and the 
requested file will be displayed on your screen. If you choose to 
CREATE a file, you will be asked to type in some data after 
providing a filename. There are no restrictions on the type of data 
you can enter. Every key on the keyboard is considered valid data. 
When you have typed all you desire, simply hit the RETURN key 
TWICE to close the disk file. 



Listing 2 contains the complete source code for this language 
extension. On my own system. I have implemented this program 
in tokenized form for maximum efficiency. The lokenizer and list 
routines were too long to include here so I rewrote the program in 
non-tokenized form. Whenever you see a machine instruction in 
the comment field in the source listing it means that in a tokenized 
version (single tokens) you would use that instruction instead of 
whatever instruction is shown on that line. If you are a TransBASIC 
user you should be able to easily convert these commands to 
TransBASIC modules (be sure to allow for the double token 
scheme of TB). Tm sure Nick Sullivan can help you if you have 
trouble with the conversion. 

Because it involved some repetition of code. 1 neglected to imple- 
ment a block IF/THEN/ELSE structure like 

101FX>10THEN 

20 PRINT 'X IS GREATER THAN 10' 

WHOOPIE!' 



30 PRINT 
40 ELSE 
50 PRINT 
60 PRINT 
70 ENDIF 



X LESS OR EQUAL 10^ 
BIG DEAL' 



If you would like to implement this structure yourself, here's an 
outline of what the assembly language routine corresponding to 
each keyword should do when executed, 

IF — Check condition. If true, business as usual. If false, search for 
EL5E and continue execution after the ELSE statement. 

ELSE — If an ELSE is executed it means you have gotten to the end 
of the IF block, so search for the ENDIF statement and continue 
execution after it. Note: The search routine will be exactly like the 
FNDWND routine in listing 3. This routine takes nesting into 
account, etc, 

ENDIF — ENDIF doesn't do anything other than mark the end of 
the IF statement. Just execute an RTS. 

If anyone out there is really ambitious, a modified CALL/PROC 
routine which includes TRUE PARAMETER PASSING would be a 
nice addition to your extended BASIC- This is a project I've 
intended to take on for quite some time but if anyone would like to 
save me the trouble, Td love to see it here in the Transactor. 



Structured BASIC Extension: Loader 



1 000 rem loader for structured basic ext 
1010 rem by frank digioia 6/2/86 
1 020 rem sys 491 52 to activate 

1030: 

1040 for adr = 49152 to 50274:read ml 

1050cs = cs + ml:pokeadnml:next 

1060 it CS01 36922 thenprinf data error" 

1070: 

1080data169, 49,141. 8. 3,169,192,141 

1090data 9, 3,169. 17,160,192, 76, 30 
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JB 


11 00 data 171, 62, 32, 83, 84, 82, 85, 67 


BG 


1710data173, 186, 194, 72,173.185.194, 72 




PN 


11 10 data 84. 85. 82, 69. 68, 32, 67, 79 


BC 


1720data165, 58, 72,165, 57, 72,169,235 




JP 


1120 data 77. 77, 65, 78, 68, 83, 32, 69 


JE 


1730data 72, 76,174,167. 32.138,163,154 




NP 


1130 data 78, 65, 66, 76. 69, 68, 46, 13 


JE 


1740data201,235, 208, 187, 32,121, 0,208 




PG 


1140data 0, 32,115, 0, 32, 67,192, 76 


PC 


1750data185, 165, 123, 141.186. 194. 165, 122 




DN 


1150data174,167, 76, 59,169, 32, 5,193 


JF 


1760data141,185, 194, 165, 58, 141.188,194 




FL 


neOdata 76,180,192,201, 39,240,243,201 


NK 


1770data165, 57.141,187,194,186,138, 24 




CL 


1170data139,208, 3, 76, 44,193,201,138 


10 


1780 data 105, 5,170,142,183,194,168,162 




JC 


1180data240,235, 170, 48, 95,160, 10,140 


LP 


1790data 1, 136, 185, 1, 1, 149, 122, 185 




DN 


1190data186, 192, 201, 87,208, 8,160, 1 


DO 


1800 data 255, 0.149, 57,202, 16,242, 32 




F 


1 200 data 1 77, 1 22, 201 , 1 28, 240, 52, 1 69, 


HJ 


1810data158, 173, 165, 97,240, 3, 76,174 


1 


HB 


1210data141,186, 192, 170, 168, 136,200,189 


PI 


1820data167, 174, 183, 194, 154, 162, 1,189 




OA 


1220data 187. 192,240, 64,232,209,122,208 


NK 


1830data185, 194, 149. 122, 189, 187, 194, 149 




HC 


1230data 2,240,243,202,189,187,192, 16 


FG 


1840 data 57,202, 16.243, 96,169, 0, 72 




HM 


1240data 8. 41,127,209,122,240, 19,208 


C 


1850data 32,248,168, 32,121, 0,170,240 




CP 


1250 data 8,232,189,187,192,240, 37, 16 


HG 


1860data 18, 32,115, 0,170,240, 12, 32 




PC 


1260data248, 232,238, 186, 192, 160,255, 76 


IH 


1870data142, 195, 240, 34, 32,145,195,240 




AO 


1270data 110, 192, 152, 24, 101, 122, 133, 122 


MA 


1880 data 35,208,229,160, 2,177,122,208 




GE 


' 1280data144, 2,230,123,173.186,192, 10 


NJ 


1890 data 3, 76,210.193,200,177,122,141 




MH 


1290data170, 189, 235, 192, 72,189,234.192 


CN ; 


1900data187, 194, 200, 177, 122, 141,188, 194 




IE 


1300 data 72, 76,115, 0, 32.121, 0, 76 


OJ 


1910data 32,251,168, 76,113,194,104,240 




DN 


1310data237, 167, 0, 82, 69, 80, 69, 65 


N 


1920 data 9, 76,104,194.169.235, 72, 76 




BK 


1320data212, 85, 78. 84, 73.204, 87, 72 


FN 


1930data104, 194, 173, 187, 194, 133, 57, 173 




CM 


1330data 73, 76,197. 69, 88, 73,212. 67 


MA 


1940data188, 194. 133, 58, 76,248,168, 




BO 


1340 data 65, 76,204, 80, 82, 79,195. 69 


LF 


1950 data 0, 0, 0, 0. 0,104,104,104 




PM 


1350dala 76, 83.197, 69, 68, 73,212, 75 


EM 


1960 data 201, 129,240, 17,201,141,240, 16 




HB 


1360 data 73, 76,204, 66, 65, 83. 73, 67 


ED 


1970 data 201 , 231 , 240, 1 2. 201 , 235, 240, 8 




GH 


1370data178. 0. 129, 193, 155, 193,217, 193 


PL 


1980data169, 4, 76,189,195,169, 19, 44 




10 


1380data188, 194,237, 194, 136, 195, 126, 193 


GE 


1990 data 169, 6,141,184,194,186,138, 24 




HJ 


1390 data 255, 192, 4,193, 9,193. 11.194 


LH 


2000data109, 184.194, 170, 154, 32,121, 




GO 


1400data169,255,133,129. 96,169, 32,133 


FD 


i2010data 32,160,168, 76,174,167,169, 3 




PP 


1410data129, 96,169,228,141, 8, 3,169 1 


FC 


2020data 32,251,163,165,123, 72.165,122 




FM 


1420data167, 141, 9, 3,169, 28,160,193 


CD 


2030data 72,165, 58, 72,165, 57, 72,169 




LE 


1430data 76, 30,171, 96, 62, 32, 67, 77 


IN 


2040data141, 72, 32, 24,195,162, 1,181 




IB 


1440 data 68, 83. 32, 68, 73, 83, 65, 66 


H 


2050data251,149, 122, 181, 97,149, 57.202 




NK 


1450data 76, 69, 68, 0, 32,115, 0, 32 


CL 


2060data 16,245, 32,248,168, 76,174,167 




HC 


1460data158. 173. 32,121, 0,201,137,240 


GG 


2070data165, 43,133,253,165, 44,133,254 




NO 


1470data 5,169,167, 32,255,174,165, 97 


EG 


' 2080 data 165, 253, 133, 251 , 165, 254, 133, 252 




GN 


1480data208, 7, 32, 99,193,170,208, 22 


LE 


2090 data 1 60, 1,1 77. 251 , 208, 5, 169, 5 




KF 


1490data 96, 32,121, 0,176, 3, 76,160 


BN 


2100 data 76,189,195.133,254,136,177.251 




DH 


1500data168, 165, 122, 56,233, 1,133,122 


LL 


2110data133, 253, 160. 4,177,251, 32,159 




DN 


1510data176, 2,198,123, 160, 0,104,104 


OF 


2120 data 195, 208, 221, 160, 3, 177, 251, 133 




AP 


1520 data 108, 8, 3, 32, 6,169, 72, 32 


ON 


2130data 98,136,177,251,133, 97,160, 7 




GC 


1530data251, 168, 104,240, 13,162, 3, 32 


CG 


2140data200, 177,251,201, 32,240,249, 152 




NM 


1540 data 115, 0, 221 , 123, 193, 208, 236, 202 


GP 


2150data 24,101,251,133,251,144, 2,230 




JB 


1550 data 16,245, 96, 69, 83, 76, 69, 76 


JG 


2160data252, 160,255, 200, 177, 122,240, 24 




PH 


1560data 59,169,169, 3, 32,251,163, 32 


! KF 


21 70 data 201, 58,240, 20.201. 32,208, 9 




E 


1570data248, 168, 165, 123, 72,165,122, 72 


GL 


2180 data 230, 122,208, 2.230,123, 76,100 




BJ 


1580 data 165, 58, 72,165, 57, 72,169,231 


:B0 


2190 data 195, 209. 251, 240,230, 76. 32,195 




NL 


1590 data 72, 76,174,167, 32,138,163,154 


AB 


2200 data 1 77, 251 , 240, 4, 201 . 58, 208, 1 52 




AC 


1600data201,231,208, 40, 32,121, 0,240 


OF 


2210data 96,169, 6, 76,189,195,162, 4 




NM 


leiOdata 44, 32,158,173,186,138, 24,105 


MB 


2220data 44,162, 7,164,122,132,251,164 




CH 


1620data 5,170,168,165, 97,208, 19.162 


OM 


2230 data 123, 132, 252, 160, 255, 208, 4, 162 




LF 


1630data 1,136,185, 1, 1.149.122,185 


FN 


2240data255, 160, 3, 200, 232, 189. 175, 195 




PF 


1640data255. 0,149, 57,202, 16,242. 76 


CN 


2250 data 240. 4.209,251,240,245, 96, 80 




HA 


1650data174, 167, 154, 96,169, 0, 44,169 


BB 


2260 data 82, 79, 67, 0, 87,128, 0. 87 




NH 


leeOdata 1, 44,169, 2, 44,169, 3. 76 


GG 


2270data 72, 73, 76, 69, 0, 10,170,189 




EC 


1670data189. 195, 32.121, 0,240,246,169 


EH 


2280data202, 195, 133, 34,189,203,195, 76 




LM 


1680data 3, 32,251,163,165,122,141.185 


AK 


2290 data 69, 164, 216, 195, 236, 195, 254, 195 




PN 


1690data194, 165, 123, 141,186, 194, 32,158 


OG 


2300data 16,196, 42,196, 62,196, 81,196 




KG 


1700data173,165, 97,208, 3, 76,101,194 


DJ 


2310 data 85, 78, 84, 73, 76, 32, 87, 73 
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H^ 


Jl 


2320 data 84, 72, 79, 85. 84, 32. 82, 69 


PB 


500 call get-key 








NA 


2330 data 80, 69, 65,212. 87, 69, 78, 68 


GF 


510untiia$-''c'' ora$=''d 


" ora$="'x 


41 




FK 


2340 data 32. 87, 73, 84, 72, 79. 85, 84 


EC 


520 return 








KC 


2350 data 32, 87. 72, 73. 76.197, 87, 72 


G 


530: 








GL 


2360 data 73, 76, 69, 32. 87, 73, 84, 72 


HJ 


540 proc gel-key 








BE 


2370 data 79. 85, 84. 32, 87. 69, 78,196 


CE 


550 a$='" 








BM 


2380data 77, 73, 83. 83, 73, 78, 71. 32 


PF 


560whiea$=" 








MN 


2390 data 76, 79. 71, 73, 67, 65, 76, 32 


PM 


570 get a$ 








CA 


2400 data 69, 88, 80, 82, 69, 83, 83. 73 


CH 


580 wend 








OF 


2410 data 79,206, 78, 79, 32, 83, 84, 82 


KG 


590 return 








GA 


2420 data 85, 67, 84, 85, 82, 69, 32, 84 


MM 

1 


600: 








FF 


2430 data 79, 32. 69. 88, 73,212, 80, 82 


MJ ■• 


610 proc get-name 








AC 


2440 data 79. 67, 69, 68, 85. 82, 69, 32 


CJ 


620f$="" 








AC 


2450 data 78, 79, 84, 32, 70, 79, 85, 78 


EL 


630wh!ef$="'- 








EH 


2460 data 196, 80, 82, 79. 67, 32, 87. 73 


FF 


640 input ' (ilename ' ;f$ 








DC 


2470 data 84, 72, 79. 85, 84, 32, 67, 65 


IL 


650 wend 








PK 


2480 data 76.204, 


AL 
CB 


660 return 
670: 














IH 


680 proc prompt 






Structured BASIC Extension: Example Program 


MP 


690 print " Htype c to create a data file ' 


■ 








MO 
1 


700 print " type d to display a data fj e ' 
710 print" type X to exit program" 






CL 


100' 




Fl 


110 ' structured demo ~ frank digioia 


HP 


720 print ' (|note: when creating a data fi e ' 




GM 


120' 


HF 


730 print" hit <return> twice to end input 


m 




CA 


130 call prompt 


FP 


740 call get-valid-key 








MF 
MC 


140 while aSO'x" 


KA 


750 return 






150 i1a$='"c' thenca create:ese call read 








AC 


160 call prompt 








N 


1 70 wend 








EL 


1 80 end Structured BASIC Extension: PAL Source 








CD 


190: 


OF 


1000; 


OP 


1430 


Idy #$0a 


iCheck on wend' 




FC 


200 proc create 


MF 


^ ^ ^- 1 

1010 istructured programming (parser) 


AF 


1440 


Sty count 


:poinito'wGnd' 




ML 


1 

210 call get-name 

^ MM 


JK 
CM 


1020,bv^ranke. digioia 
1030 11/12/85 


MN 
BF 


1450 
1460 


cmp # " w " 
bne setup 


i current char ^ w 7 
; no/not wend 




K 


220open2,8,2.f$-f ,w 


Gl 


1040; 


HJ 


1470 


Idy *S01 


;yea/check next char 




BA 
LB 


230 print' enter data. . .- 
240 ca!t get-key 


HM 
KJ 
OJ 


1050 . = ScOOO ;convenient start 

1060; 

1070cnrgel = S0073 ;get byte of text 


IB 
BK 
CP 


1480 
1490 
1500 


Ida (S7a),v 
cmp #$80 
tieq exec 


;next byte ot text 
;"er>d7 
;yes/execute wend 




AH 


250 repeat 


JG 


lOaOchrgot = $0079 ;getsamebv1e 


MF 


1510; 




■ 1 1 




EM 


1 

260 print a$; 


LC 
CM 


1090 igone - $0308 .evaluation vector 
1100; 


M 
PI 


1520 setup 
1530 


Ida #E00 
sta couni 


; clear all regs 

;and keyword counter 




OL 


270 print#2.a$; 


MO 


1 n init a • initialize routine 


PM 


1540 


tax 






01 


280 repeat 


PK 
NO 


1120 Ida #<struct 
11 30 st8 ^aone 


NN 
KC 


1550 
1560 


lay 
dey 


:pre-loop decremerit 




NE 


290 call get-key 


PL 


1140 Ida #>struct 


IJ 


1570; 








MO 


300 print a$; 


NA 


1150 sta igone+1 


ON 


1580 loop 


iny 


;incr text index 




GO 


^^ ^n ^r r— ^- J 

310 prinl#2,a$; 


Ft 
LO 


1160 k3a #<note 
1170 Idy #>note 


NO 
ML 


1590 
1600 


Ida table, X 
beq basic 


;get table byte 
,end of Cable 




JF 


320 until a$ ^ chr$(13) 


MM 


■ r -V J 

1180 jmp Sable 


FO 


1610 


inx 


:incr table pointer 




FH 


330 call get-key 


MB 
NO 


1190; 

1200note asc ">slructurefJcommands" 


MF 
OL 


1620 

laio 


cmp ($7a),y 
bne next 


;cmpare with text 
;find next word 




NG 


340untila$ = chr$(13) 


1 1 ^w^ 

KN 


1210 .asc " enabled." byte$Od,$00 


BM 


1640 


beq loop 


;matcti/keep looking 




AB 


350prlnt#2:cose2 

^b ^^ ^^ 


KD 


1220; 


10 


1650; 








r h ^H^r 


DA 


I230strucl = ' 


EC 


1660 next 


dex 


jbump X down once 




Ei 


360 return 


PL 


F ^^^wr^i^ "W h" "t" t' * 

1 240 jsr ci^rget ;get a byte of text 


Ml 


1670 


Ida lab;e,x 


; "end of table word^ 




GO 


370: 


KM 


1250 jsr chkout ; ' structured command? 


EN 


1680 


bpl find 


: no/find end ot word 




PJ 


380 proc read 


PO 
MG 


1260 jmp Sa7ae ;inlepreter loop 
1270; 


OH 
CC 


1690 
1700 


and #$7f 
crnp($7a).y 


: yes/mask f ag 
:* is it a match? 




AH 


390 call get-name 


JC 


F 

1280 rem jmp $a93b , rem command 


II 


1710 


beq exec 


; hooray' II 




H 


400open23.2,f$ 


Al 
AG 


1290; 

ISOOnewrun jsr kill ;kil1 editmode 


JM 
ID 


1720 
1730; 


bne x1 


;go back lor mom 




FH 


410 while St =^0 


OA 


1310 jmp basic igfvetobasic 


BD 


1740tind 


inx 


:find end of word 




BD 


420 get#2,a$ 


OJ 


1320. 


HA 


1750 


Ida table, X 


ilookfor negative 




OG 


430 print a$i 


GE 
IN 


1330 chkout cmp#$27 ;" single quote? 
1340 beq rem .dassyrern 


MF 
lA 


1760 
1770 


beq basic 
bpl lind 


; end of table 

;kQep looking 




GO 


440 wend 


CA 


1 350 cmp #Sab ;can"l have new cmda 


KG 


1780: 








J 


450 close2 


DB 
AK 


1360 bne - + 6 ;witr>out a new if 
1370 imo if 


El 
FO 


1790x1 
1800 


inx 

inc count 


: point to next word 
:word# in table 




10 


460 return 


F 1 F 1 

MC 


1380 cmp#$8a ;'run' token 


PA 


1810 


Idy #$ff 


: reset te>it Index 




KE 


470: 


HC 


1390 beq newrun ;end edit and run 


EM 


1820 


imp loop 


;search some more 




BE 


480 proc get-va id-key 


DF 
PD 


1400 lax ;setfiags 

1410 bmi basic ;token/give to basic 


MJ 
ME 


1830; 
1840 exec 


= * 


; execution routine 


AG 


490 repeat 


CA 


1420, 


PN 


1850 


tya 


;updaEe text pointer 


1 KL 11860 


Cic 


... — 


TlM^amactor ** 


MaKli19e7:V0luni»7,lMU*O« | 



NP 


1670 


adc $7a 


AA 


2730 


rts 


;yes/returntorntefp 


KF 


3590 wer r2 


kla #$02 




DF 


1880 


sta $7a 


KC 


2740; 






LO 


3600 


.byte$2c 




HF 


1890 


bcc *+4 


BA 


2750 doit 


jsr chrgoT 


,get last char 


CK 


36iOnoccnd Ida #$03 




ME 


1900 


inc $7b 


KB 


2760 


bcs decptr 


;notdfgrl/executeit 


OC 


3620 


jmp error 


[pf ml error msg 


MO 


1910; 




OL 


2770 


jmp SaBaO 


;di git/execute goto 


EK 


3630 [ 






FK 


19^0 


Ida count ;get offset iri table 


CF 


2780; 






OH 


3640 u^ile 


= ■ 




NE 


1930 


asl a ; multiply by two 


GL 


2790 decptf 


Ida $7a 


.decrement txtptr 


GB 


3650 


jsr chrgot 


; " condition present? 


BC 


1940 


tax ;use as index 


BH 


2800 


sec 




NN 


3660 


beq nocond 


; no/error mesg 


ME 


1950 


Ida adrtab + 1 >i byte adr 


BD 


2810 


sbc #$01 




AP 


3670 


Ida #$03 


;need 6 bytes 


KD 


1960 


pha ;as return adr hi 


PP 


2820 


sta S7a 




PB 


3680 


jsr chkstk 


; check stack space 


GF 


1970 


Ida adriab,x ,lo byte adr 


DE 


2830 


bcs •-I-4 




NN 


3690 


Ida $7a 


;Bave pointer to 


EG 


1380 


pTia ;as return adr to 


DN 


2840 


dec $7b 




NJ 


3700 


sta t1 


[the conditK>nal 


PJ 


1990 


jmp chrget .execute routine 


EB 


2850 


Idy #$O0 


iclear^y for update 


CE 


3710 


Ida $7b 


[expresson tor 


GE 


2000; 




CK 


2860; 






JE 


3720 


sta 12 


[later use 


EO 


2010 basic 


jsr chrgot ;resetfLags 


OL 


2870 cmmd 


pta 


;cl6ar return address 


CG 


3730 


|Sr frme^ 


[evaluate expression 


CM 


2020 


jmp $a7ed ; give it to basic 


IM 


2880 


pla 




ND 


3740 


Ida $61 


[ " triis or false? 


EG 


2030; 


1 


OC 


2890 


jmp ($0308) 


;9xecutev<a vector 


II 


3750 


bne wtroe 


;true/k>ad up slack 


HO 


2040 count 


, byte $00 


KM 


2900; 






DA 


3760 


jmp fndwnd 


[false/find wend 


IH 


2050, 




FD 


2910fndes 


jsr $a906 


[find next stmt 


AD 


3770 [ 






HB 


2060 table 


.asc ' 


"repea" : .byteSd4 


PE 


2920 


pha 


;save byte 


OL 


3780 wtrue 


Ida T2 


[save poster to 


OK 


2070 


.asc ' 


"unti" : byleScG 


CL 


2930 


jsr Sadtb 


; update txtptr 


Al 


3790 


pha 


,the logical 


NH 


2080 


asc ' 


"whr : .byle$c5 


MC 


2940 


pla 


;get byte back 


KN 


3800 


Ida t1 


[expression on 


GA 


2090 


asc ' 


"sxi" : .bytB$d4 


LL 


Z950 


beq noelse 


; ' end of line'' 


IB 


3810 


pha 


[Stack 


EP 


2100 


asc ' 


"cal" : byte Sec 


BD 


2960 


Idx #$03 


; com pare 4 byte 


CK 


3820 


Ida $3a 


[save line number 


GO 


2no 


asc ' 


■pro" : .byteSc3 


AD 


2970chkels 


jsr chfgei 


;get a byte 


AM 


3830 


pha 


[on stack 


HC 


2120 


asc ' 


"els" : .byteSc5 


BK 


29B0 


cmp esle.x 


;comare bkwrd 


NJ 


3840 


Ida $39 




GA 


2130 


asc ' 


"edi" byleSdA 


KD 


2990 


br>e fndels 


; no/next stmt 


Gl 


3850 


pha 




EO 


2140 


asc ' 


'kir : byteScc 


CD 


3000 


dex 


;bump index 


CB 


3860 


da #whlTok 


[Save id for while 


AH 


2150 


asc "basic' : .byiBSb2,$00 


JE 


3010 


bpl chkQ\s 


;keep checking 


10 


3870 


pha 


[on stack 


GO 


2160; 




MQ 


3020 noelse 


rts 




HH 


3880 


jmp $a7ae 




KB 


2l70adriab 


word repeat-l,until-T 


ME 


3030; 






IK 


3B90; 






DO 


2180 


,word whiie-i ,©xit-l x^l-l 


DB 


3040 esle 


.asc "esie" 




JJ 


3900 wend 


jsr getptr 


[find id on stack 


AJ ' 


2190 


word xproc-i .else- 1 .edit- 1 , kill- 1 


AG 


3050; 






PC 


3910 


txs 


; update pointer 


MD, 


2200 


,word basic2-1,wend-l 


KO 


3060 eJse 


jmp $a93b 


;do a rem 


ML 


3920 


cmp #wtiliok 


; " id (or while? 


IB 


2210, 




EH 


3070; 






IB 


3980 


bne werrl 


['missing while' 


IC 


2220 ,edit mode commands 


CP 


3080 repeal 


= 4 




DB 


3940 


jsf chrgot 


; ■ end of statement? 


MC 


2230, 




MK 


3090 


Ida #$03 


;need 6 bytes 1 


Cf 


3950 


bne werr2 


;no/sometbing wrong 


OE 


2240 edit 


da #$ff ;ignore pi symbol 


UN 


3100 


fsr chkstk 


;check stack space 


00 


3960; 






FA 


2250 


sta $81 .alter chrget 


GA 


3110 


isr $aef8 


;point next statement 


HD 


3970 


Ida $7b 


[Save text pointer 


EN 


2260 


rt8 ^that's it! 


FO 


3120 


da $7b 


isave text pointer 


KO 


3980 


sta t2 




EF 


2270; 




GL 


3130 


pha 




DF 


3990 


da $7a 




NC 


2280 kill 


Ida lf$20 , Ignore spaces 


BA' 


3140 


Ida $7a 




MP 


4000 


sta ti 




GG 


2290 


sla $81 ,fix chrget 


KM 

1 


3150 


pha 




PF 


4010 


Ida $3a 




10 


2300 


rts 


OA 


3160 


Ida S3s 


.save line oumb^ 


EN 


4020 


sta 112 




MH 


2310; 




ON 


3170 


pha 




LF 


4030 


fda $39 




MN 


2320 basic2 


Ida #$e4 ;fl>; igone vector 


JA 


3180 


Ida $39 




FO 


4040 


sta 111 




NJ 


2330 


sta Igone 


CP 


3190 


pha 




IF 


4050: 






GJ 


2340 


Ida iVSa7 


IP 


3200 


Ida #replok 




LF 1 


4060 


tsx 


;get slack pointer 


NL 


2350 


sla igone + 1 


GA 


3210 


pha 




NO 


4070 


txa 


[place in .a 


DG 


2360 


Ida #<note2 ,r>otify user 


JG 


3220 


jmp $a7ae 


.interpreter loop 


GG 


4080 


cIc 




NM 


2370 


Idy #>note2 


EB 


3230; 






KH 


4090 


adc #505 


,back up 5 on slack 


MH 


2380 


jmp $able 


DD 


3240 until 


m ■ 




PM 


4100 


tax 




CE 


2390 


rts 


BO 


3250 


jsr gelptr 


;flnd id on stack 


CM 


4110 


stx stkptr 


[Store stack pointer 


IP 


2400 note2 


asc ^cmds disabled* : byteKX) 


EM 


3260 


txs 


; re pi ace pointer 


HO 


4120 


lay 




AC 


2410: 




PK 


3270 


cmp #repTak 


; " repeat id? 


y 


4130; 






FE 


2420 ; structured programming module 


FE 


32B0 


bne uerrl 


;'missing repeat' 


PO 


J4140 


Idx #$01 


[get adr of while 


LC 


2430 :by frank e. digioia 


OK 


3290 


jsr chfgot 


; ■ condition present? 


MH 


14150 whidal 


dey 


.condition Into 


FF 


2440:11/23/85 


PC 


3300 


beq rtocond 


; missing cond ' 


OM 


4160 


Ida stack -1-1 


.y;$7a/$7b and line 


lA 


2450; 




OL 


3310 


jsr frmevi 


; evaluate expression 


Al 


4170 


sta $7a,x 


[number Into $39/$3a 


JD 


2460 ;lokens tor lookups & onp ' s 


HH 


3320 


tsx 


;get stack pointer 


LA 


4180 


Ida stack-1 ,y [tor frmevi to use 


MB 


2470; 




JA 


;3330 


tTta 


:place in a 


BE 


4190 


sta $39, X 




PA 


2480 whiiok 


- Seb 


CI 


3340 


cic 




PB 


4200 


dex 




NA 


2490 wndtok 


- Sec 


GJ 


3350 


adc #$05 


;backup5onstack 


KN 


4210 


bpl v^ldat 




KA 


2500 repiok 


= Se7 


LO 


3360 


tax 




CP 


4220; 






JA 


25lOgo3ubs 


= S8d 


JP 


ai70 


lay 




GF 


4230 


jsf frmevi 


[evaluate expression 


KB 


2520 for 


= $81 


KK 


3380; 






BD 


4240 


Ida $61 


["true or false? 


AB 


2530 proc 


- $e5 


KB 


3390 


Ida $61 


;check result (t/f) 


EO 


4250 


beq wtalse 




CG 


2540; 




IP 


3400 


bne utrue 


;true/tix stack 


HO 


4260 


jmp $a7ae 


, true/com execution 


II 


2550 slack 


= $0100 


,65T0 stack area 


fM 


3410; 






EC 


4270; 






JL 


2560 frmevi 


= Sad9e 


;eva uate formula 


ID 


3420 


Idx #01 


:falseycopy data from 


JJ 


4280 wfalse 


dx stkptr 




CE 


2570 geiptr 


- $a38a 


;pntrto stack id 


EF 


3430 getdat 


dey 


[Stack Into program 


FO 


4290 


txs 


[Update stack pointer 


EA 


2580 chkstk 


» $a3fb 


,check stack space 


EE 


3440 


Ida stack -f 1 


.ypolnter fl-curlln 


PE 


4300 


dx #$01 




EJ 


2590; 




LC 


3450 


sta $7a,x 


;lo contrnue execution 


JK 


43l0wfill 


Ida 11.x 


[replace text pntr 


EA 


2600 rf 


1= ■ 


KA 


3460 


Ida stack-i ,i 


f [at top cf loop. 


DO 


4320 


sta $7a,x 




PC 


2610 


jsr chrQGt 


get next byte 


BH 


3470 


sta $39 ,x 




OM 


4330 


Ida lll,x 


[replace line number 


AA 


2620 


isr $ad9e 


evaluate expression 


PE 


3480 


dex 




HN 


4340 


sta $39,x 




MH 


2630 


jsr S0079 


get last char 


CI 


3490 


tpi geidat 




FL 


4350 


dex 




HD 


2640 


cmp#$89 


" ^goTo" token? 


Bl 


3500 


jmp $a7ae 


[Interpreter loop 


GO 


4360 


bpl wfill 




GE 


2650 


beg chkexp 


yeah/check result 


MC 


3510; 






DB 


4370 


rts 


[Continue execution 


BO 


2660 


Ida #$a7 


then' token 


GC 


3520 utrue 


txs 


[Update stack pointer 


CJ 


4380: 






PE 


2670 


jsr Saeff 


check on 'then' 


GL 


3530 


rts 




DM 


4390 f ndwnc 


1 = 4 


;find wend statement 


DD 


2680 chkexp 


fda S61 


' expression true? 


KE 


3540; 






DF 


4400 


Ida #$00 




GA 


2690 


bne doit 


yesyexecute cmd 


KC 


3550 uerrl 


Ida #SO0 




Dl 


4410 


pha 


[set flag on stack 


NB 


2700 


jsr fndets 


noAook for 'else' 


DM 


3560 


,byte $2c 




BJ 


4420wsjx:h 


jsr $a8te 


[find next stment 


AJ 


2710 


tax 


'eoln^ 


DE 


3570 werri 


Ida #S01 




CF 


4430 


fSr chrgot 


; " end of line? 


NB 


2720 


bne cmmd 


no/do else clause 


HN 


3580 


,byie $2c 




DC 


4440 


tax 






1 ^ 


19 mnodor 






S6 






MoiCh 1M7; Volwn* 7, lnu» 06 



MF ' 
LJ ' 


1450 
4460 tx 


beq Go1n1 
isr chrget 


;yes/deal with t{ 
.get next byte 


ED i 
HC : 


5310; 
5320 


jar tndprc ;find procedure adr 


AJ ■ 
FD 


6170; 

6180 ;this routine may be omitted if 

J J J J ^ I b 


LF ■ 


*470 


UN 


^_F * 

;■ end of line? 


BF : 


5330 


Idx #$01 ;use .X as index 


MC 


6190 ;lokens are used (see arlicle). 


KH . 


4430 


beq Boim 
jsr chkwnd 
beq xwend 
jsr chkwhl 
beq xwhiid 
bne wsrcrt 


; yes/deal with it 
.cmp #wndtok 


DM : 


5340 z 


ida Sfb.j. 




OK 


6200; 


1 >4 1 

CK ■ 


4490 


NB : 


5350 


sta $7a,x ;update text pointer 


HG 


62l0chkwnd dx *S04 ;oflsettorwend 


Rt 


^■^T a-F %J 

d'lOO 


' ~ 


Dl 


5360 


Ida S61.K 




Nl 


6220 byte $2c ;skip next instr 


KM 


4510 


;cmp #wh1iok 


HB 


5370 


sla $39, X ;u 


pdate Itne number 


DK 


6330chkwht Idx #$07 .offset to while 


I ^ F ■ r 

HB 


4520 


■ 1 


LL 


5380 


dex 




HE 


6340 Idy $7a ;GOpy text pointer 


r P L^ 

LH 


4530 




MA 


5390 


bpl z 




LG 


6250 Sty $fb ;tO$fb/SJc 


CD 


4540 






01 


5400; 






EJ 


6260 Idy $7b 


IM 


4550eoln1 


Idy #t02 
Ida ($7a).y 


;chec^ for end text 


FP 


5410 


jsf SaSfS ,find next command 


NP 


6270 sty $fc 


I F ■ 1 

00 


4560 


, "link hi =■ 0? 


NO 


5420 


jmp $a7ae ;tc interpreter loop 


HM 


6260 Idy #$tt .pre-kjopindex 

■ ■ ■ L 1 1 k 


FP 


r m^ m^ n^ 

4570 


1 ™--M- y-M- /^ I 

bne " + 5 


.no/continue search 


WK 


5430; 






PI 


6290 bne chkx ;do the check 


PL 


4580 


imp werr2 


.yes/missing wend 


NO 


5440 fndprc 


- :find procedure 


CB 


6300: 


NB 


4590 


my 

Ida (S7a),y 


; no/gel line* 


Ml 


5450 


Lda S2b ;start of basic 


LA 


6310 chkprc Idx #Sfr ;offsetfor proc 


r ^ l—r 

LL 


r 'mJ Kr ^» 

4600 


isave line # 


KK 


5460 


sta Hd ;aspointef 


AO 


6320 Idy #$03 ;pre-loop 


PB 


4610 


sia 111 




HB 


5470 


kja $2g 




AO 


6330; 


1 ■_# 

MO 
DC 
AE 


4fi?0 


iny 

Ida (S7a).y 

sla H2 




Nl 


5480 


sta Sfe 




LF 


fi:^40 chkx iny ;compare kjop 


4630 
4640 




10 
BG 


5490; 
5500 srchip 


Ida Std ;updaie link pnlr 


GD 
AM 


6350 inx ;bump pointef 
6360 Ida nam©,x .ge{ byte of name 


■ 1 ^^ 

LN 


^T 1_F ^T %X 

4650 


jSE SaSfb 
jmp XX 


; update text pointer 


CK 


5510 


sta $fb 




GE 


6370 beq xit : end Of name^ 


^^ 1 ^ 

AD 


r n^ Lgj XpT 

4660 


.do search 


HH 


5520 


da $1e 




. NN 


6380 cmp (Sfb).y ;compare to text 


EL 


4670 




JL 


5530 


sta Sfc 




PA 


R^90 beq chk>i ;match. keepon 


^E 


^■l_r ■ B-F 1 

4680 Kwend 


pla 


; check flag 


KB 


5540; 




1 


OM 


6400 xit rts 


CG 


4690 


1 

bea wrwjtnd 


, found It!!! 


DD 


5550 


Idy *$01 ; use ,y as index ' 


Al 


6410; 


OF 


4700 


imp wsrch 




OC 


5560 


Ida (Sfb),y ;lii byte next line 


HC 


6420 name asc proc byte $00 

^ ^ J ^k ■-■ j-B ^h ^x^K 


MN 


T 4» ^» 

4710' 




JD 


5570; 






BE 


6430 asc w byteS80,$00 


Pv 1 r V 

IK 


—W J 1 %^ ^ 

4720 xwhile 


Ida twhitok 




NC 


5560 


bne > + 7 


' end or texl^ 


HF 


6440 asc "while" :. byte $00 


GP 


4730 


pha 

jmp wsrch 




PJ 


5590 


Ida #S05 ;yes/erroT number 5 


IK 


6450; 




1 F 4-^ ^p 

4740 




KP 


5600 


imp error ;' 


proc not found' 


LA 


6460 ;erTor processor — prints error 


v_ii 1 

EA 
Ml 


4750, 
4760 wndfn( 




AG 


5610; 






lA 


6470 .messages and passes control to 


j Ida 111 


;load Itne # 


NC 


5620 


Sla Sfe ;save next adr hi 


JN 


6480 .rom error routines 


NH 


4770 


sta $,^9 




FE 


5630 


dey ; bump pointer 


AN 


6490; 


1 ■ ' ■ 

01 


4780 


Ida 112 




Bl 


5640 


Ida ($to),y ;get next adr lo 


JD 


650O;franke. digioia 


JK 


4790 


sia £3a 




CE 


5650 


sta $fd ;saveit 


JE 


6510:12^17/85 


EC 


4800 


jmp Sa8f8 


;f ind next statement 


CJ 


5660; 






OO 


6520; 


AE 


4810 




IK 


5670 


Idy *S04 ;i 


3oint to 1 St byte 


GJ 


6530error asl a .multerr#by2 


F 1 ^ 

AG 
KG 


4820 SikpTr 
4830 incrsi 


byte $00 
byieSOO 




DJ 
HO 


5680 
5690 


Ida (Sfb).y ;( 
jsr chkprc ,( 


3el the byte 
:mp #proc 


JB 
IF 


6540 tax .useasindejf 
6550 Ida errmsg.x ;get mesg address 

. . ^. -^ j^ 


DP 


4840 11 


byieJOO 




FK 


5700 


bne srchip ,j 


lo/lry next me 


EG 


6560 Sta S22 

^^ ^ ri 1 d 


AA 


485012 


byte $00 




EM 


5710; 






EK 


6570 Ida errmsg + l.x 


GC 


4860111 


byte $00 




HC 


5720 


Idy tt$03 ;' 


/es/getline# 


PB 


6580 imp $a445 ; process eff Of 


ED 


4870 112 


byieSOO 




AH 


5730 


Ida [$fb),y ;■ 


get hi byte 


ED 


6590; 


Gl 

Ml 


4880. 
4890 exit 




GE 


5740 


sta S62 ;: 


;ave It 


KA 


eeOOerrmsg word u1msg,wlmsg.w2msg 


K * 




BO 


5750 


dey 




OP 


6610 word ncmsg.nemsg,npmsg.noca 


Bi 


4900 


pla 
pla 

pla 

cmp *tcir 
beq geTinc 


;find id onstacit 


IK 


5760 


Ida i$fb).y ;■ 


gel lo byte 


CF 


6620; 

^ ■■ r ■ 4 I ■ jti J M 


GL 
AM 


4910 




BG 


5770 


sta $61 ;&aveit 


BG 


6630uimsg asc until without repea . .byte$d4 




KA 


5780; 






ID 


6640w1msg asc 'wend without whil' : byte Sc5 


KJ 


4930 


: " tor command? 


LA 


5790 


Idy #$07 


Idy #S04 


BC 


6650w2msg asc ' while wUhout wen " :,byte$c4 


OD 


^■^_F^_aB_F 

4940 


,get # ot bytes 


ON 


5800 -(Spc 


my ; 


skip leading spaces 


FP 


6660 ncmsg asc missing logical expressio 


AJ 
AD 


4950 
4960 


cmp #gosub£ 

beq gelinc + 
cmp *rep!Ok 
beq geti nc + 


; ,"gosub command? 
3 


DP 
IG 


5810 
5820 


Ida ($fb),y , 
cmp # ■ " 


gel byte of name 
■ space? 


CJ 


: ,byte $Ge 
6670nemsg asc "no structure to exi" : .byteSd4 


EE 


4970 
4980 


3 


HF 
GE 


5830 
5840. 


beq xspc 




BK 
PK 


6680npmsg asc procedure not foun : .Dyte$c4 
6690 nocall asc ' proc without cal " byte $gc 


OD 


4990 


cmo Mwhilok 




BJ 


5850 


lya ; 


get offset in a 


CK 


6700; 


IF 
JN 


5000 
5010 


beq gatinc + 
Ida #£04 


3 


KF 


5860 


cic 




CB 


6710, end 


;ef rof number 4 


OM 


5870 


adc $fb 


update our txtptr 




IC 


5020 


imp error 


;'nolhingloexit' 


LF 


5880 


sta Stb ; 


to first byte of 




MB 


5030; 


f ' 




BA 


5890 


bcc - -+- 4 


procedure name 




GP 


5040 gelJnc 


Ida #$13 


.19 byles on stack 


NA 


5900 


inc $fc 






JC 


5050 


byte $2c 


;skipnextinstr. 


Ml 


5910; 




J 




AA 


5060 


Ida #$06 


;6 bytes on stack 


AB 


5920 


Idy #Stf 


set ,y - -1 




MB 


5070 


sta irrcrsl 


,incr for slkptr 


OH 


5930compar my ; 


.update index 




HP 


5080 


tsx 


;gel stack pointer 


HE 


5940 chktxt 


Ida (S7a).y 


.byte of name 




CB 


5090 


Ixa \ 


iputin a tor add 


PP 


5950 


beq chklst 


.end of exec name 




CG 


5100 


dc 




JG 


5960 


cmp#" : " 


; " end of exec name? 




CH 


5110 


adc incrst 


; in crease slkptr 


JL 


5970 


beq ch-kfsl 


; check end procname 




FF 


5120 


lax 


; replace it 


lA 


5980 


cmp#" ' 


; ■ space'^ 




OO 


5130 


txs 


istack clean! 


SL 


5990 


bne chknam 


;no/Gheck p^oc name 




CC 


5140 


jsr chfgot 


;gei last char. 


HB 


6000 


inc $7a 


;forget Spaces 




OB 


5150 


p' Sa8a0 


;goTc command 


IJ 


6010 


bne • + 4 






HP 


5160 


jmp $a7ae 


.interpreter loop 


EG 


6020 


ir>c $7b 






IK 


5170: 






NE 


6030 


jmp chktxt 






JG 


5100 call 


s « 




OA 


6040; 








AO 


5190 


Ida #$03 


: need 6 bytes 


CO 


6050 chknam cmp ($fb),y 


;cmp p'oc name 




PA 


5200 


jsr chkslk 


.check stack space 


CA 


6060 


beq com par 


; match/keep checking 


1 


PA 


5210 


Ida $7b 


;save text pointer 


KB 


6070 


jmp srchip 


;no/fiod next pfoc 




AO 


5220 


pha 




GD 


6080; 








LC 


5230 


Ida $7a 




00 


■ 6090chkls1 


Ida ($fb},y 


: " end procname? 




EP 


5240 


pha 




NA 


6100 


beq t + e 






to 


5250 


Ida $3a 


;save line numbef 


IC 


6110 


cmp#'' 






lA 


5260 


pha 




GD 


' 6120 


bne srchip 






DO 


' 5270 


Ida £39 




ON 


1 6130 


ris 






Me 


I 5280 


pha 




CH 


1 6140; 








PF 


5290 


Ida #$8d 


;idforgosub 


LD 


6150Kproc 


; Ida #S06 


.error number 6 




AD 


1 5300 


pha 




KG 16160 


imp error 
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Blazin' Forth 



Scott Ballantyne 
New York, New York 

Copyright (c) 1986. by ScoU Ballanlyne. 



Everything you wanted to know about Forth (but were afraid to ask). 



This article contains a description of how a threaded-code 
Forth compiler works, with specific reference to Blazin" Forth. 
You'll find this information useful if you are interested in the 
particulars of how Forth compilers work, or are interested in 
improving or changing one. Specifically, 1 wrote the following 
as an aid to people who might be trying to understand the 
source to Blazin' Forth, and it should be considered part of the 
documentation for the source files to the system. 

To understand this document, you will need a decent knowl- 
edge of Forth, An understanding of pointers won't hurt any 
either. 

You don't need to know machine language to understand this 
article, but you will, of course, need it to understand the actual 
source, 

1 have attempted to provide sample code in hi-level forth that 
illustrates the routines involved. This code is similar, but not 
exactly the same, as the actual machine level routines in the 
actual compiler. In particular, you should not expect these 
routines to actually work if you type them into a forth system in 
an attempt to build a " Forth in Forth ' . They are provided to 
add clarity, and that is their only function. 

What is a Virtual Machine? 

A Virtual Machine is a creation, in software, of a piece of 
hardware. Note that this hardware does not actually have to 
exist - it is only within the last year that an actual hardware 
Forth computer has been built. Forth has been around a lot 
longer than that. 

All high level languages are essentially virtual machines, since 
they implement instructions which are not part of the actual 
hardware CPU. As an example, Forth uses two stacks, a 
parameter stack, and a return stack. On an actual hardware 
Forth computer, the built-in machine language of the com- 
puter would contain instructions for manipulating each stack, 
and the pointers to the bottom of each stack. On the 6502, there 
is actually only one stack - one or the other of the Forth stacks 
must be emulated using software routines. So you could say 
that one stack is a hardware stack, and the other stack is a 
Virtual stack. 

As another example, the function call mechanism (how the 
actual functions, procedures, or words are eventually caused to 
execute) of a high level language is rarely directly supported by 
hardware instructions. On the majority of CPU's in use on 
personal computers today, the only real function call mecha- 



nism implemented in the hardware is the subroutine ca!l 
{usually referred to as a JSR or CALL instruction). This instruc- 
tion usually only saves the return address automatically. Any 
other information or any other method of invoking a subrou- 
tine must be done by software that, essentially, is a software (or 
virtual) function call, as opposed to the hardware function call 
and return. This is particularly true of threaded code Forth, and 
the routine which implements this function call mechanism is 
called NEXT, Understanding NEXT is the key to understanding 
the functioning of the Forth compiler at its lowest level. 

Introducing NEXT- 

To understand how NEXT {and the various Forth machine 
registers that NEXT uses to do its thing) works, let^s first take a 
quick look at the structure of a compiled higher level Forth 
word. It is essentially a list of addresses: 

: EXAMPLE W1 W2 W3 ; 

( Standard Forth Header goes here) 
Address of W1 
Address of W2 
Address of W3 
Address of EX1T{;) 

NEXT uses several auxiliary registers to keep track of where the 

user program is. On a CPU with many registers, these would be 
kept in a selected CPU register On the 6502, which has only 4 
user-accessible registers, these are maintained as virtual regis- 
ters (page zero locations are used for greater speed). One of 
these virtual registers is called the Interpreter Pointer, or !P for 
short, and it is responsible for keeping track of the progress of 
the current program. When NEXT is entered, in the course of 

running a program, the IP will be pointed at the word we want 
to execute. NEXT does some stuff {to be described in a moment) 
to cause this word to begin to execute, but before transferring 
control to this word, it moves the IP ahead to the next word's 
address, so it will know what word to run the next time it is 
called. 

Here is a sample execution of EXAMPLE, given above: 

IP-* Address of W1 ( NEXT executes W1, first moving IP 

ahead to W2) 
IP -* Address of W2 ( NEXT executes W2, first moving IP 

ahead to W3) 
IP -* Address ot W3 { NEXT executes W3, first moving IP 

ahead to EXIT) 
IP ^Address of EXIT 



TrW TlOfMOClOr 



March 19f7: Vtrfunw 7, IMN OS 



1 like to think of the IP as a kind of Address Slider, that can be 
moved ahead or behind to direct the flow of execution of the 
current program. 

Ultimately, of course. NEXT must cause machine language 
instructions to be executed, which essentially means changing 
the hardware program counter of the CPU to point to the 
appropriate batch of instructions to be executed. It does this 
using another virtual register called the Current Word Pointer, 
or W for short. To understand this portion of NEXT, we have to 
clear up exactly what we mean by " Address of Word " in the 
above discussion. 

The individual members of the list that makes up a Forth 
definition's executable body are the addresses of the code field 
in the header of the compiled word. (These " addresses of code 
fields" will be referred to as - the execution address ' ofaword 
in the rest of this document. When the term "code field" is 
used, the reference will be to the actual code field portion of a 
dictionary header Or. at least, that is how I am going to try to 
use these terms.) This execution address (as you may recall) 
itself stores an address which points to machine level (assem- 
bly language) instructions. It is these instructions that NEXT 
causes the CPU to execute, by forcing the CPU's program 
counter to the address stored at the execution address of that 
word. So we have a couple of levels of indirection here: 

The IP points to a location which holds the execution 
address of a word. The execution address pointed to by 
the location pointed to by the IP points to executable 
machine language instructions. 

So the full story of NEXT is as follows: 

1) NEXT retrieves the value stored at the address in the IP. 

2) It saves this value ( the execution address of a word ) in W 
{the current word pointer). 

3) It then moves the IP ahead to point at the next word to be 

executed. 

4) Finally, it forces the hardware program counter to the value 
stored at the address in W, which causes machine level 
instructions to execute. 

Here is an example of the full execution of a forth word. Let's 
make up some example addresses for our example execution: 



Address 
$AOO0 

$B0OO 

$C000 

$0900 



Contents Description 

{ $0600) WTs execution address is $AOO0, and 

contains $0600. 
( $0700 ) W2"s execution address is $B000, and 

contains $0700. 
( $0800 ) W3^s execution address is $C0OO, and 

contains $0800, 
( $0880 ) EXIT'S execution address is $0900, and 

contains $0880. 



And here is how the compiled EXAMPLE word from earlier 
looks - let's say that the body of example starts at $E000: 



Address 


Contenis 


Description 


SEOOO 


{ $A000 ) 


Compiled Wl 


SE002 


( $B000 ) 


Compiled W2 


$E004 


{ $COO0 ) 


Compiled W3 


$E006 


( $0900 ) 


Compiled EXIT. 



So. at the entry to NEXT, the IP will contain SEOOO. 

NEXT fetches the address stored here, and stuffs it into W. so W 
will now contain $AOO0, which is the execution address of WI . 

NEXT now increments the IP to point at the next word, so the 
IP will contain $E002. 

Finally, NEXT forces the program counter of the CPU to the 
address stored in the address stored in W. So here's a quickie 
quiz - what will be the address in the hardware program 
counter? 

(Answer: $0600 - which is (he address of the machine language 
code for Wl). 

Here is a quick synopsis of the values stored in the IP, W, and 
hardware PC for the execution of EXAf^PLE, given above. It 
might be a good idea to pause here, and try to run through the 
rest of the example on your own, to check your understanding 
(and the clarity of my explanation) of how NEXT functions. 



Word-to- Execute 


IP 


W 


IP-AT-EXT PC 


Wl 


SEOOO 


SAOOO 


$E002 $0600 


W2 


$E002 


$B000 


$E004 $0700 


W3 


$E004 


$C0OO 


$E006 $0800 


EXIT 


$E006 


$0900 


$E008 $0880 



As a final aid to understanding, here is an implementation of 
NEXT in hi-level Forth: 

: NEXT IP 2 + ! // Get address of IP 

@ II Get value of IP (address of next word to 

execute) 
@ // Gel that word's execution address 
W ! // And stuff into the current word pointer. 
2 IP +! //Move IP along to next word, for next time. 
W @ // Get the execution address from W. 
@ II Get the actual address of the code. 
PC I // Force into hardware PC, so that it will 

execute. 



Now that you understand NEXT {1 hope), and the role of the 
Forth registers IP and W, you are in a good position to 
understand the rest o( the Forth system. 

EXECUTE - or how Forth launches programs 

You might be wondering at this point exactly how an applica- 
tion gets launched in the first place. Since NEXT uses the IP. 
and assumes that the IP is pointing at a compiled execution 
address, how do words that you just type in from the terminal 
get executed? Obviously, words typed directly to the interpreter 
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from the terminal don't have an address which is valid for the 
IP. The answer is the Forth word EXECUTE, which takes an 
execution address as its argument. When you type a word to 
the interpreter that it can find in the dictionaiy, it pushes the 
execution address of the word onto the parameter stack, and 
calls EXECUTE. Execute first saves this execution address in W, 
and then forces the PC to the address stored in this execution 
address, just like the last part of NEXT. Here is EXECUTE in 
high level forth: 

: EXECUTE (execution-address — ) 

W ! // save in W - then do last part of NEXT 
W @ @ // get the address of the code to execute 
PC f // and execute it. 



Note that EXECUTE does not call NEXT - it assumes the 
EXECUTEd word will be doing that. 

At this point you are no doubt wondering how the IP gets 
initialized at all. It's not hard to understand, but let's put off a 
detailed discussion of it until we talk about the DOCOLON and 
EXIT routines, a little further on, but here is a brief hint: When 
EXECUTE executes your word, there is already a valid value in 
the IP - it is pointing somewhere inside INTERPRET, If the 
word you are executing is acolon definition, then the first thing 
it does is save the current value of the IP, and then changes it to 
point to itself. A CODE definition won't change the IP at all 
(unless the code you write is supposed to), and so the pointer to 
inside INTERPRET just hangs around until the code definition 
gets to its NEXT call, which causes the INTERPRET word to 
resume. This will all become clearer when you understand 
exactly how DOCOLON and EXIT work. 

Incidentally, there is also an EXECUTE inside of the compiler 
loop - it's there to handle IMMEDIATE definitions - the ones 
that execute even when you are compiling. The logic here is 
the same as above. The only difference is that the IP will be 
pointing somewhere inside ) , instead of inside INTERPRET. 

How Forth Does Branching 

In our discussion of NEXT, above, we only talked about 
sequential execution of words. What happens if we need to 
branch around words (as we do in conditionals like IF) or cause 
the same words to be executed repeatedly {as we do in DO 

LOOP or BEGIN UNTIL constructs)? 

The answer is actually very simple - we just change the IP to 
point to the word we want to branch to, and then execute 
NEXT. If you followed the above discussion on NEXT, it should 
be obvious that this causes a complete diversion of the flow of 
control for the current word. 

When a branch is compiled, two things are done: a special 
word that controls the branch is compiled, and the destination 
address of the branch is compiled. For example: 

: CR'S BEGIN OR AGAIN '; 



This word will just print new lines, until a rude action is taken 

by the operator to stop it. Here is how the compiled word looks 

in memory. 

(Standard Forth Header goes here) 
$A000 CR (execution address of CR) 

$A002 BRANCH { execution address of BRANCH) 
$A004 SAOOO { address to BRANCH to) 
$A006 EXIT (execution address of EXIT) 

When CR'S executes, NEXT executes CR, and then it executes 
BRANCH. BRANCH takes the address immediately following it 
in memory, in this case SAOOO, and stuffs it into the IR 
BRANCH then JMP's to NEXT. Since the IP is once again 
pointing at CR, (having been changed by BRANCH), NEXT 
once again executes CR, and then BRANCH, which causes the 
IP to be changed, and so on, forever. 

BRANCH is an example of an unconditional branching primi- 
tive - it always branches, no matter what. ?BRANCH is a 
conditional branching word - it will branch if the value on the 
top of the stack is FALSE - otherwise, no branch takes place. 
Here is an example of a word that would cause ?BRANCH to be 
compiled: 

: CR? ( BOOLEAN — ) IF CR THEN ; 

CR? will obviously print a CR if the top of the stack is non-zero. 

otherwise, nothing happens. Here is how CR? would look in 
memory: 

(Standard Forth Header) 
SAOOO 7BRANCH ( execution address of 7BRANCH) 
$A002 $A006 ( destination address of branch ) 
$A004 CR ( execution address of CR) 

$A006 EXIT (execution address of EXIT) 

In this case, the execution would execute ?BRANCH first, 
which tests the value of the top of the stack. Notice that two 
things can happen here, BOTH of which will change the IP: 

1) If the top of the stack is FALSE, ?BRANCH will force the IP 
beyond the branch address, by adding two. This will obvi- 
ously cause CR to be executed. 

2) If the top of the stack is TRUE, ?BRANCH will act exactly like 
BRANCH, and stuff $A006 (the word immediately following 
?BRANCH) into the IP, which will obviously just EXIT the 

definition. 

In any branching word, one or the other of these two things will 
happen. AH of the branching words are compiled in exactly this 
way, with the branching primitive first, and the destination 
address of the branch immediately following it in memory. The 
reason that there are more branching primitives in Blazin' 
Forth than just these two has more to do with entry and exit 
conditions that it does with the actual branching mechanism. 

For example, iF-THEN, IF-ELSE^THEN, BEGIN-UNTIL, 
BEGIN-WHILE-REPEAT, BEGIN-AGAIN are all implemented 
with combinations of ?BRANCH and BRANCH, since all of 
these involve boolean testing of the top of the stack> 
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Things like DO-LOOP and ?DO-LOOP and DO--f LOOP, etc 
have additional things to do, like move the loop parameters to 
the return stack, add or subtract the loop index, test the loop 
index, and clean up the return stack on the loop exit. But the 
actual mechanics of branching are exactly the same, only the 
entry/ exit conditions differ from word to word. Among other 
advantages, it makes the compiler code much simpler, since 
there are fewer 'special cases" to check for. 

Once again, as an aid to understanding, here are sample 
implementations of BRANCH and ?BRANCH in hi-level forth. 
As you read these, keep in mind that when BRANCH or 
7BRANCH is executing, the IP will be pointing at the branch 
address - since it gets incremented before the execution of the 
next word by NEXT: 

: BRANCH ( branch unconditionally STACK: — ) 

IP @ // Get the value of IP, ordinarily the address 
// of the code field of the next word to 
// execute. In this case, it is a branch address. 
IP @ II Get the vaiue stored at the address - which 

// is the destination branch value- 
IP ! // Change the IP to the destination address. 

NEXT //and execute. 



7BRANCH ( conditional branch STACK; BOOLEAN — ) 
= IF // test top of stack - if FALSE ( equal 

to zero) 
BRANCH // just execute BRANCH 
ELSE // value was TRUE, don't branch. 

2 IP + ! // move IP over branch address, to 
next word. 



THEN 
NEXT 



// and execute. 



How Forth Does Nesting - DOCOLON and EXIT 

In the above examples there was never any question of remem- 
bering where we came from - the course of execution of the 
word was changed, and we never really cared to remember 
what called what. But what about having one colon definition 
calling another one? How does Forth remember where to come 
back to when it has finished the called definition? 

This is not particularly difficult either. Once again, the IP and 
W, the current word pointer, play central roles. In what follows, 
remember that W points to the actual address of the word we 
want to execute, while the !P points to a memory location 
which contains the address of the word. 

What happens is this: NEXT starts to execute a colon definition. 
All colon definitions have the same address stored at their 
execution address, which is the address of a machine language 
routine called DOCOLON or NEST. It is this routine that is 
responsible for saving the current execution environment, 

DOCOLON first pushes the current value of the IP {which holds 
the address of the word we want to return to) onto the return 



stack. At this point, W will be holding the execution address of 
the new word to execute. We want to execute the body of this 
word, so DOCOLON now adds two to the value in W, which 
makes it point to the BODY of this definition, and stuffs it into 
the [P. DOCOLON now calls NEXT, which causes the new word 
to execute. 

Eventually, NEXT will execute EXIT, which is the word com- 
piled by ; . EXlTs job is to restore the previous execution 

environment, and it does this by very simply by pulling the top 
of the return stack, and stuffing it into the IP, It then calls NEXT, 
which causes the calling word to resume execution as though 
nothing had happened. 



Here is an example: 



FOOBAR 



CR ; 



: COLON-CALL FOOBAR ; 

Compiled view of the above: 

(Header for FOOBAR) 
SAOOO DOCOLON ( Code field portion of header) 

$A002 CR (Body) 

$A004 EXIT 

(Header for COLON-CALL) 
$8000 DOCOLON { Code field portion of header) 
$B002 FOOBAR ( Body) 
$B004 EXIT 

And here is a simplified execution of COLON-CALL. 



Word-to-Execute IP W 

FOOBAR $8002 $A000 



iP-AT- RETURN- 
EXIT STACK 



DOCOLON 

CR 

EXIT 
EXIT (in CALL 
-COLON) 



$B004 $A000 
$A002 CR's EA 
$A004 EXIT EA 
$B004 EXiTEA 



$B004 

$A002 
$A004 
$B004 



xxxxx 

$B004 
$B004 
xxxxx 



(NOTE: EA stands for Execution Address.) 

Once again, here is a sample implementation in higher level 
forth, of DOCOLON and EXIT: 

: DOCOLON IP @ // get current value of IP 

>R // Save it on return stack 
W @ // Get execution addr of current word. 
2 + // Convert to Address of body. 
IP I // Change IP 
NEXT // Execute new word 



EXIT 



R< // Get old IP (saved by DOCOLON) 

IP! //Restore 

NEXT // Resume execution. 
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Since Ihe most recent caller is always at the top of the return 
stack, the Eorth system can find its way through any number of 
levels of nesting, no matter how deep. There is no theoretical 
limit to the depth of nesting of forth words, although there is 
the practical limit of the size of the return stack. 

So how deeply can one nest definitions in Blazin" Forth? Well, 
the obvious answer is around 123 levels, since there is an 
entire page of memory allocated for the return stack, it is 
equally obvious that certain actions can modify this, such as 
pushing literals to the return stack in your definitions, or using 
DO LOOPS, since DO LOOPS store the loop control informa- 
tion on the return stack. 

Less obviously, you should note that CODE definitions do not 
cause the above nesting to occur. The majority of the primitives 
in Blazin' Forth are CODE definitions, and the desire to maxi- 
mize the level of nesting was one of the design considerations 
that led to this decision. 



standard header (that's the function of the CREATE in our 
definition). It then allocates two bytes of parameter space, and 
compiles the value on the top of the stack into the dictionary 
(that's the function of the 'J in our definition). The words 
following the DOES> don't do anything when CONSTANT 
executes - they execute when the child word (the word created 
by CONSTANT) executes. When the child executes, it will leave 
the address of its body on the stack, and then (he words 
following the DOES> will be executed. In this example, there is 
only the @ - which will replace the address of the BODY with 
the value stored there, just like CONSTANT should, and EXIT, 
which will return us to wherever we came from. Thus; 

10 CONSTANT TEN 

creates a dictionary entry for the name TEN, and a 2 byte 
parameter field for the value 10, which CONSTANT also stuffs 
there. Executing 

TEN 



In practice. I have never even approached the theoretical 
maximum level for nesting, much less had a crash that was 
traceable to return stack overflow, even when using highly 
recursive words. 

Forth's DOES> construct 

The implementation of the DOES> feature of Forth is usually 
one of the hardest for people to understand. The thing to 
remember when we get down to the actual details of the 
implementation is exactly how the current word pointer W 
works. When a word is executing. W will contain the execution 
address of that word. Stored at the address in W is the actual 
address of the code that is executing. In Forth, we would say 
that W @ is the execution address of the word, and W @ @ is 
the address of the code. Keeping this in mind will help you to 
understand what is goI[ig on. 

First, a quick refresher on what DOES> does. DOES> is 
possibly the most unique feature of forth, since it allows you to 
extend the actual Forth compiler to compile new types of 
words. DOES> words are compiler words, and as such, they 
are used to create new words to execute. To help keep the 
discussion clear, lets call words which contain DOES> parent 
words, and words which are created by DOES> words, child 
words. 

When a parent word executes, it creates a dictionary entry for 
the child. When the child executes, it leaves the address of its 
body on the parameter stack, and then executes the hi-level 
forth words after DOES> in the parent word. A common way to 
teach beginners about DOES> is to redefine one of the Forth 
primitives, such as CONSTANT, as a DOES> word. Til do the 
same thing here, but 1 will also try to explain exactly how these 
words do their thing on an implementation level. 

: CONSTANT CREATE , DOES> @ ; 

Here we have our CONSTANT definition. When CONSTANT 
(the parent) executes, it will create a dictionary entry with a 



will first leave the address of TEN's body on the stack, and then 
the words following DOES> (in the parent word CONSTANT) 
will execute, which result in the value 10 being left. 

Now for the implementation details. Here is how our definition 
of CONSTANT would look in the dictionary: 

{Preceded, as always, with the standard forth header) 
$A000 DOCOL ( code field portion of header) 

$A002 CREATE (execution address) 

$A004 , ( execution address ) 

$A006 (:CODE) { execution address ) 

$A008 JMP DODOES { actual machine lang, instructions) 
$AOOB @ ( execution address) 

SAOOD EXIT (execution address) 

And here is how the definition of TEN would look: 

( Standard dictionary header goes here) 

$B000 $A008 ( code field portion of header) 

$B002 10 ( value stored in parameter field) 

Ok. here is how it all sorts out. Remember that DOES> is 
defined as an IMMEDIATE word, and so it executes when you 
are compiling. The mysterious portion of the CONSTANT 
definition, above - the (;CODE) and the JMP DODOES are 
written into the dictionary whenever DOES> executes. 

(iCODE) is an unusual primitive. When it executes, it over- 
writes the current contents of the code field of the last word 
added to the dictionary with the address of the machine code 
which follows it in the definition currently executing. In our 
example above, it will cause all words created with CONSTANT 
to have a code field whose value is $A008 - the address of the 
JMP instruction in CONSTANT, This will obviously cause the 
JMP DODOES instruction to be executed each time a word 
created by CONSTANT is executed. 

DODOES is the routine that does the actual magic. It must do 
three things: 
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1) It must save the curreni value of the IP (jusl like DOCOLON) 
so Forth knows how to get back to the caller. 

2) It must push the address of the child^s body to the stack. 

3) It must execute the words following the JMP DODOES in the 
parent. 

Using TEN as an example, DODOES must push the value 
$B002 to the parameter stack, and it must then cause the words 
starting at $AOOB to be executed. 

Here is how it's done in Blazin' Forth: 

When TEN executes, it should be clear that the value stored in 
the current word pointer ( W ) is $B0O0, which is the execution 
address of TEN. The IP will be pointing somewhere important, 
so DODOES first saves it. which it does exactly like DOCOLON, 
by pushing it onto the return stack. 

Once the IP has been safely tucked away, we have two tasks to 
perform. We must push the address of the parameter field of 
TEN to the stack, and we must fhen cause the hi-level forth 
words in the DOES> part of CONSTANT to execute. We can use 
the value of W to do both these things. 

Remember that W, the current word pointer, is currently 
pointing at the execution address of TEN, and so contains 
SBOOO. So it is a simple matter to calculate the address of the 
body of 1 - we just add two to the current value of W ( which 
gives us $B002), and push it to the parameter stack. 

Now, the value stored at SBOOO is $A008, which is the address 
of the JMP DODOES instruction in CONSTANT We want to 
execute the hi-level forth words beyond this instruction - a 
piece of cake. We simply add 3 (the size of an absolute JMP 
instruction on the 6502) to the value stored at the execution 
address of the child word TEN, and stuff it into the IR Once this 
has been done, all we need to do is call NEXT, which lakes care 
of everything else, since we just pointed the IP at the proper 
spot. 

Since we saved the previous value of the IP first off. when the 
EXIT at the end of the DOES> stuff is executed, we gel returned 
to whatever called us. 

Once again, here is an example of DODOES in hl-level forth: 

: DODOES IP @ >R // Save current IP on return stack 

W @ 2 + // Leave address of parameter field on 
slack 

W @ @ // Get address of JMP DODOES in- 
struction 

3 + // Add in size of JMP absolute instruc- 
tion 

IP I // Set as new execution address 

NEXT // and execute it 



LITERALS, CONST AIHTS, and VARIABLES 

In this last section, I talk about how Blazin' Forth handles 
compiled literals, and how the words defined by CONSTANT. 
VARIABLE and USER are implemented. 

There are two kinds of literals recognized by Forth, numeric 

and siring. Numeric literals are compiled automagically, by the 
compiler loop, while string literals are compiled by . ' (usually). 

Numeric literals first. As you probably remember, when you 
compile a definition, Forth attempts to look up each word in 
the definition in the dictionary, if it finds the word, then it 
compiles the execution address of the word into the dictionary 
(unless the word is defined IMMEDIATE, of course!). !f the word 
is not found, then it attempts to convert the string of characters 
you just fed it into a number. If it succeeds, then it compiles a 
special primitive called (LIT) into the dictionary, and immedi- 
ately past that, it places the value of your literal. (If it can't 
convert it to a number, then it issues the famous 'NOT IN 
CURRENT SEARCH ORDER " message,) Here is an example: 

:BIG 1000; 

and here is how it looks in the dictionary: 

(standard forth header) 
SAGOO (LIT) (start of BIG'S BODY) 
$A002 1000 (The value of your literal) 
$A004 EXIT (EXIT-Tadah!) 

(LIT)'s function is to place the value following it in memory on 
the top of the parameter stack, and to move the IP over the 
literal value, to the next valid forth word. It's pretty simple in 
practice, if you remember that if (LIT) is being executed, the IP 
must be pointing at the address of the literal, since it was 
incremented by NEXT. Here it is as an example FORTH 
definition: 

:(LIT) ("16bit) 

IP @ @ // Get value of literal to stack, 

2IP +! // Move IP past literal value, to next valid 

word. 
NEXT //and call NEXT 



Blazin" Forth has a memory saving feature for values that will 
fit in one byte. For these values another word, called CUT is 
compiled, instead of (LIT). It works very similarly to (LIT): 

:CLIT ( — byte-value) 

IP @ C@ // get the byte to the parameter slack 

1 IP + 1 // move over byte literal to next valid word, 

NEXT // and execute next 



That wasn't so hard, was it? 



The case of string literals is very similar, / is an immediate 
word which first compiles (.'). It then searches the input 
stream for an ending " , and moves everything before this final 
quote into the dictionary, with a leading count byte, as is 



«3 



March I9ST: Vohsiw 7, miM OS 



normal for Forth. It also moves the pointers to Iheinpul stream Armed with your present knowledge of the IP and W, under- 
past the string, so the interpreter won't try to evaluate it. Here is standing these definitions should be a snap. They all work very 
an example: much the same- We start with variable, since it's the simplest. 



: GREETING / HELLO" ; 

And here is how GREETING would look in memory: 

(Header) 
$A000 {.") ( primitive to print the following in-line 

string) 
$A002 5 (the length of the string) 

$A003 HELLO(Thecharsafestoredhere, 1 per byte) 
$A008 EXIT 

The (. " ) primitive is one of the few low level words in Blazin^ 
Forth that is actually written in Forth {i.e. it's a colon defini- 
tion). Since (. " ) is a colon definition, this means that when (. " ) 
is called, DOCOLON will save the current value of the IP on the 
return stack. But. by a pretty stroke of fate, this will be exactly 
the address of the siring following (/). To get a little more 
concrete about it: 

When Greeting executes, the JP will eventually contain the 
value $A000. This will cause NEXT to execute {. " ). but NEXT 
will first, as always, bump the IP to $A002 (the start of the in- 
line string). When (. " ) executes, since It is a colon definition, 
DOCOLON will push $A002 (the current IP) to the return stack, 
and then enter the definition. So at entry, we have the address 
of the string on the return stack. All we have to do is retrieve 
the address, use COUNT and TYPE to display it, and adjust the 
return address on the stack before we exit. Once the return 
address has been adjusted and placed back on the stack, EXIT 
will return us to the word past the end of the in-line string. 

Here is (. ' ), just as it appears in the Blazin' Forth: 

:C")( — ) 

R@ ( get string address from return stack) 

COUNT (get the count byte, adjust address) 
DUP 1 + ( total length of string, including count byte) 
R> + ( get address, move past end of string) 
>R (and restore, for EXIT) 

TYPE (the string) 

; ( and return, using adjusted address as re- 

turn) 

So much for literals. 

Constants and variables' (including USER variables) run-time 
action is determined by the routines pointed to by their code 
fields. There is no special primitives compiled, as there is with 
the literals. 

Here is a short run-down of the actions of each: Constants 
place the value stored in their body on the parameter stack. 
Variables place the address of their body on the parameter 
stack. User variables place the address of the associated varia- 
ble on the stack. The actual value stored in the parameter field 
is an offset from a base address. 



When the code field of a variable (or constant or USER) is 
executed, W will contain the execution address (the address of 
the code field) of the word in question. So it's easy: take the 
value in W, add two, and leave that value on the stack. Here is a 
hi-ievel definition of DOVARIABLE: 



DOVARIABLE ( - 


- address) 


W@ 


// Get the executon address of this 




variab e 


2 + 


// Add two to get the body. 


NEXT 


//and that's it! 



Constants are very similar to variables - the only difference is 
the extra step required to retrieve the value in the constants 
body. Here is a hi-leve! definition of DOCONSTANT: 

:DOCONSTANT ( — value) 

W @ 2 + // As in variable - get the address of 

the body. 
@ // Get the value stored there. 

NEXT 



USER variables are very similar to constants. The only addition 
here is that we add the base address of the user area to the 
value stored in the body of the user variable. 

:DOUSER( — address) 

W @ // get execution address of this user 

variable 
2 + C@ // get offset - we only use byte offsets 

in Blazin' Forth, 
UP @ // get base address of user area 
+ // add to offset to get actual address of 

variable 

NEXT 

- 

Here is a question for those who want to test their general 
comprehension of the topics discussed here. Why can't we use 
the IP instead of W in the definitions of VARIABLE, CON- 
STANT, and USER ? 

Answer: Aside from making the definition more complex, it 
would be impossible to retrieve the addresses of variables, or 
the values of constants, when we are typing their names 
directly into the interpreter from the terminal! Remember that 
the interpreter launches programs by stuffing the execution 
address of a word into W. In the following situation, there is no 
way to get from the address of the IP to the address of the 
parameter field: 

VARIABLE BLETCH 

BLETCH . XXXX 

since the IP is still pointing somewhere inside INTERPRET, The 
only pointer that is valid to code such as DOVARIABLE in al! 
cases is W. 
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Programmer's Aid 

For The Commodore 128 



Joseph F. Caffrey 
Larksville, PA 



Find, Replace, and List Scrolling for 40 or 80 columns, 



What more could one ask for than BASIC 7.0? When the initial 
thrill of playing with the new machine wears off, one notices that 
find and replace commands would be nice, together with a means 
to browse Through the long listings you can create with all thai 
available memory. 

The program presented today fills these needs. The job of bidirec- 
tional list scrolling has been simplified compared to the C64, since 
Basic now contains a callable subroutine at $51 23 which will list a 
single program line. Furthermore, we have a new system vector at 
$033C which can be used to intercept keystroices before they are 
entered into the buffer. This vector is used by the program to take 
special action when a cursor up is entered with the cursor at the 
top left of the screen window, or a cursor down entered from the 
bottom left of the screen window. When this happens, instead of 
being stored in the buffer, the keystroke is suppressed, the screen 
is opened as a logical file, and the active screen area searched for a 
Basic line number at the left of a logical line, starting from the 
current cursor position. If a valid line number is found, a line is 
inserted on the screen and the next (or previous, if at the top of the 
window) line is listed to the screen. The cursor is then restored to 
the start of the new line, so holding down either cursor down or up 
causes scrolling through the listing. 

If no valid line number is found after searching the whole active 
screen, the cursor move is simply executed. 

Given the possibilities of various window shapes. 40 or 80 column 
output, and the inaccessibility of the 80 column chip memory in 
the memory map. cursor positioning by brute force would be a 
huge undertaking, so the kernal PRIMM subroutine, which prints 
text following its invocation up to a $00 byte, is used to send escape 
sequences to move the cursor about the screen. The code which 
determines which line to list next allows for the special cases of 
having found the final or initial line of the current program during 
the screen search by inserting two blank lines and "rolling over" to 
list the initial or final line as required. 

After the initial installation, the list scrolling feature is transparent 
- it just happens with no action by the user - in fact, it even 
happens if you leave Basic for the monitor, which is a bit discon- 
certing, but doesn't appear to hurt anything! 

The find and replace functions require creation of new Basic 
commands. The technique used here is patterned after Brian 
Munshaw's error wedge for the C64 (Transactor, Vol. 5, No, 6), The 
code traps a syntax error produced by a "commercial at' (@) 



symbol. Rather than use literal phrases after the '@\ T chose to 
follow it with a valid Basic 7.0 keyword. This allows the new 
command parser to check the single character following the '@' for 
dispatching purposes. 1 admit there are probably more elegant 
ways (there are a few more new vectors in page 3 of RAM) to do 
this, but 1 was anxious to get the code running. 

Syntactically, the result is as follows. For "find", the command is: 

©GET "text to be found' 

This may be followed by a line number range, if desired (no 
comma, just the range immediately after the closing delimiter). 
Either single or double quotes may be used for the delimiters, with 
double quotes resulting in a search for the literal, nontokenized 
text enclosed therein. 

The syntax for the replace function is similar: 

@IF 'text to change' THEN "replacement text" 

Again, a line number range may follow, and single or double 
quotes may be used as delimiters. 

The ©GET command lists all lines containing the search text to 
the screen. @IF replaces all occurrences with the replacement 
string specified, and lists the changed line to the screen. Search 
and replace strings may be up to 32 characters long. 

Because of the way the input line is tokenized. you can find REM's 
and DATA'S, but changing them is difficult. If you need to specify a 
line number range after such a command, you can use the 
Commodore -f Q graphic between the first and last line numbers to 
represent a tokenized minus (-) sign. 

The replacement posed several problems. My first attempts in- 
volved temporarily resetting some system vectors, listing the 
changed line to the screen, poking a carriage return to the key 
buffer. leUing Basic do the work of entry, then returning to my 
code. Unfortunately, Basic line entry involves calling a subroutine 
which resets the stack pointer, which confuses matters greatly. 
Replacing JSR's by JMP's and even defining a new page for the 
stack got me closer, but at that point I looked at the size to which 
the code had grown and decided to move the memory around 
myself, since it might be shorter and certainly faster than de- 
tokenizing and re-tokenizing a line which you had in tokenized 
form to begin with. 
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The resulting move roulines do some tortuous arittimetic at their 
beginnings in order to set up pointers for a "let 'er rip" loop to effect 
the actual move. For search and replace strings of equal lengths 
the move routines are skipped, and if Ihe replace string is longer 
than the search, checks are performed for creation of a line which 
is too long and (although I don't think it will happen soon) 
exhaustion of available memory. 

The method of patching into Basic deserves some comment. The 
new capabilities of the 128 bring new responsibilities for ML 
programmers. Now in addition to all the old caveat's (don't hurt 
the slack, don't use some other routine's memory, don't mess up a 
register that some other routine is going to use), you must always 
be conscious of the current memory configuration the processor 
sees. As the Basic interpreter does its thing, you can only be sure 
that the first four pages of bank RAM will always be visible to the 
processor. This is the reason for the patch code written to $03E4. 
The new error vector jumps to here, and we then make sure that 
the processor sees bank at $i4A0 before jumping there. 

Also, (he routines which read from bank (READFM61 =$42EC, 
READFM70=$42F1) leave the machine in a peculiar state. The 
ROM's are re-enabled, but the processor sees the character genera- 
tor at $D0OO instead of the f/0 chips - this can wreak havoc with 
kernal routines, so Basic contains a number of six byte long code 
fragments which set up configuration 15 (which includes the I/O 
chips) and jump to kernal rouhnes. We make use of two of these 
(BPRIMM = $9281, BCH ROUT -$9269). 

I've given il a lot of thought, but still can't see why you want the 
character generator in the processor's address space in the first 
place. Maybe the hrmware was written by a committee? 

As they stand, the @GET and @IF roulines appear bug-free. 
Perhaps with syntax that ugly, one doesn't need bugs. I think I 
caught the last bug in the scroller a few days ago. It's really 
necessary to cancel quote mode after each list. Otherwise listing a 
line with an odd number of quotes on it results in a gentle crash, 
with the cursor bouncing back and forth between the first and 
second characters on the line. The interrupt is set at the start of the 
scroller to eliminate re-entry problems, which otherwise will insert 
blank lines randomly into your scrolling listing. 

I have found two cases of aberrant behavior. When used with the 
40 column screen, scrolling will present the first character of each 
line listed in reverse video. Never having mastered Ihe vagaries of 
the software cursor on the 64, 1 leave this for others to fix. Besides, 
if it's a long program, you want to be on the 80 column screen 
anyway. Also, after sitting with my finger on the cursor down key 
for minutes at a lime scrolling through a long lisUng, the routine 
has sometimes failed by listing an incorrect line number and 
proceeding to list there from. Fixes are welcome! 

The routines are linked to Basic by a. 

SVSDEC('1300") 

Since a run/slop -l- restore sequence does not reset $0300, find and 
replace are there for good. However the $033C vector is reset. To 
allow scrolling to survive a restore sequence, the new error 
handler takes a few microseconds to rewrite thai vector each hme 
it is called, including, of course, immediately after the restore 
sequence. 
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FIvl 
GJ 
JB 
PK 

HB 

GN 

IJ 

JH 

GA 

AJ 

OJ 

FL 

Nl 

Kl 

AG 

Jl 

PL 

EF 

KK 

DJ 

JN 

LK 

FJ 

10 

EF 

LA 

LE 

CP 

CJ 

OA 

DE 

GP 

NJ 

Ki 

MF 

MG 

DD 

IK 

FM 

OL 

GL 

FO 

FJ 

JK 

MM 

OE 

HG 

DA 

HC 

HI 
Kfvl 
GC 
DM 
GE 
ND 
MF 

LJ 



1070 data 
1080 data 
1090 data 
1 1 00 data 
11 10 data 



76, 61, 19 

32, 105, 146 

32,209, 22 

1, 32,236 



1000 rem save ' Oiprogaid.tdr " ,8 
1010 rem *• by Joseph caffrey larksville, pa 
1020 rem ♦♦ scroll, find and replace for the c1 28 
1 030 for j - 4864 to 5887: read x: poke j,x: 

ch = ch + x: next 
1040 if chO1 1 2895 then print ' checksum 

error" .stop 
1050 print ''sys(4864): rem to enable ': end 
1060: 

76,219, 22, 36,127, 48, 9,120 
72, 41,127,201, 17,240, 5,104 
88, 76.173,198,165, 46,205, 17 
1 8. 208. 9, 1 66, 45, 232, 232, 236 
16, 18,240,235,104, 48,103,165 
1 120 data 228, 197, 235, 208, 6, 165, 230, 197 
1130 data 236, 240, 4,169, 17,208,217, 32 
1140data104, 20, 32, 4, 20, 32, 19, 20 
1150data144, 22, 165,229, 197,235,208, 6 
1160data 32,113, 20, 76, 51. 19, 32,129 
11 70 data 146, 145, 27, 74, 0, 
llSOdata 32,113, 20,169, 17, 
1190 data 32,100, 80,144,206, 
1200 data 134, 97,133, 98,160, 
1210 data 66,208, 12, 32,129,146, 13. 13 
1220 data 0,166, 45,165, 46,208,233, 32 
1230data130, 20,169, 0,133,244, 32,129 
1240 data 146, 27, 74, 0, 88, 96,165,229 
1 250 data 1 97, 235, 208, 6, 1 65, 230, 1 97, 236 
1260data240, 4, 169. 145,208, 151, 32, 104 
1270data 20, 32, 4, 20, 32, 19, 20,144 
12a0data 20,165,228,197,235,208, 6, 32 
1290data113, 20, 76,154, 19,169,141, 32 
1300 data 105, 146, 76,164, 19, 32,113, 20 
1310 data 32,100, 80,144,213, 
1320 data 166, 97,134,250,165, 
1330 data 197, 46,208, 26,228, 
1340 data 56,173, 16, 
1350data 17, 18.233, 
1360 data 32.143. 20, 
1370 data 165, 46,134, 
1380 data 22, 197, 251 , 208, 245, 228, 250, 208 
1390data241, 76,127, 19,169,126,162, 3 
1400data 32,186,255, 32,192,255,162,126 
1410data 76,198,255, 32, 92, 20,176, 67 
1420data 41, 15,133, 22,169, 

92, 20, 144, 2, 
72, 6, 22, 38. 
22,164, 23, 6. 
32, 6, 22, 38. 



32. 143, 20 

98,133,251 

45,208, 22 

2,170.173 

0, 134,250,133,251 

32,143, 20,166, 45 

97,133, 98, 32,209 



18,233, 



1430 data 32, 
1440 data 15, 
1450 data 166, 
1460 data 176, 



0,133, 
24, 96, 
23,176, 
22, 38, 
23,176, 



23 
41 
42 
23 



26 

1470 data 138, 101, 22,133. 22,152,101, 23 
1480data133, 23,176, 14,104,101, 22,133 
1490data 22,169, 0,101, 23,133, 23,144 
1500 data 199, 36,104, 96, 32,228,255,201 
1510data 48,144, 3,201, 58, 96, 56, 96 
1520 data 165, 236, 133, 250, 165,235,133,251 
1530 data 96,169.126, 32,195,255, 32,204 
1540data255, 165,250, 133, 236, 165, 251, 133 
1550 data 235. 96.160, 2, 32,236, 66,170 
1560 data 200, 32,236, 66, 76, 35, 81, 32 
1570 data 129, 146, 27, 87, 0, 96, 72,169 
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JD 


1580 data 0.141, 0,255,104, 76,160, 20 


OM 


2200data 17, 18,144, 1,200,204, 19. 18 




KG 


1590 data 32,241, 22,224, 11,208, 37,201 


MF 


2210dala240, 3,176, 6, 96.205, 18, 18 




EO 


1600data 64,208, 31, 32,128, 3,162, 1 


FA 


2220 data 144, 250 J62, 16, 76, 63, 77,160 




E 


1610 data 221, 207, 20,240, 5,202, 16,248 


AA 


2230 data 0, 32,236, 66, 56,229, 97,101 




BM 


1620 data 48, 16,104,104,138. 10,170,189 


OE 


2240dala 94.176, 1. 96, 76,118, 21,160 




OF 


1630 data 210, 20, 72,189,209, 20, 72, 76 


KD 


2250dala 1. 32,236, 66,208, 3, 56,176 




DJ 


1640data128, 3,162, 11, 76, 63, 77,161 


AE 


2260 data 23,160, 3, 32,236, 66,197, 23 




CG 


1650data 139,212, 20,212, 20,134,197,240 


HA 


, 2270 data 144, 14,208, 12,136. 32,236, 66 




G 


1660data241,201, 34,240, 4,201, 39,208 


G 


2280 data 197, 22,144. 4.240. 1. 36, 24 




C 


1670data233, 133, 196, 162, 0, 32, 88, 21 


OA 


, 2290data 96,160, 0, 32,236, 66,170.200 




KP 


1680data132, 195. 165, 197,240, 33,162, 34 


G 


2300data 76,236, 66,120.162, 10,189.150 




FL 


1690data 36,127, 48,216, 32,132, 21,201 


OF 


2310 data 20,157,228, 3.202, 16,247.169 




GE 


1700 data 167, 208,207, 32,128, 3,197,196 


NA 


. 2320 data 228, 141, 0, 3,169, 3,141, 1 




EL 


1710data208,200,162, 32, 32, 88, 21,132 


CB 


, 2330data 3,120, 72,169, 3.141, 60, 3 




GO 
MN 


1720 data 32,152, 56,229,195,133, 94, 32 
1730data132, 21, 32,251, 94, 76, 80, 21 


J 


2340data169, 19.141. 61, 3.104, 88, 96 










DP 


1740data160, 3,162. 0,200, 32,236, 66 






JP 


1750 data 240, 39,221, 0, 11,208,243,232 


PAL Source Listing 




KD 


1760data228, 195, 208, 240, 165, 197,240, 6 


MK 


lOOOrein save 'O,pfogaid pal" 6 




BE 


1770dala 32,195, 21, 32, 79, 79, 32,130 


AP 

MP 


1010 rem c-i2Bec'0ll, tind, replacfl 
1020 rem by Kisepfi caffrev. larksvillR, pa 




OP 


1780data 20, 32,152, 85, 32,181, 75,165 




il)30openS,&,V"0p'o0a<],oti" 

- -L, J j^ ^n_FH 




GJ 


1790data 197,240, 6,165. 34,168,136,208 


BO 

ND 


lOiOsy^ZOO 
1050 opIoB 




LD 


1800data209, 32,209, 22.134, 97,133, 98 


KJ 


1060; 

1 070 .consianis 




DA 


1810 data 32,175, 22,144,195, 76,134, 3 


OK 
BO 


10B0; 

lOMbitins ^ S24 .opcode for tui zp instrudion 




GK 


1820data 32,128, 3,160, 0,142, 1,255 


IL 


nOOcrsOwn > 17 ascii characiers 




LL 


1 830 data 1 77, 61 , 1 42, 3, 255, 1 97, 1 96, 240 


HA 


IllOcraip - cisiJwn + l2fl 
1120 escape - 27 




LJ 


1B40data 18.201, 0,240, 19,157, 0, 11 


JJ 
GG 


INOshrftfin - SOd*128 


1 


GH 


1850data232,200,192. 31,208,231,162, 23 


QD 


1150syneii - 11 ,ba5ic eiror*S 


1 


01 


1860data 76, 63, 77,192, 0,240, 1, 96 


EN 


llTOdironly = 34 




FM 


1870data162, 11,208,244, 24,152,101, 61 


AH 
CD 


naOlngsTrng = 23 

1190ifienioken- Sa7 ,bas*lo*ienror "tfien' 




ME 


1880 data 133, 61,165, 62,105, 0,133, 62 


GC 


1200, 




KP 


1890data 76,128, 3,141. 1,255,177, 89 


LF 
KD 


1 210 .zero page locations used 
12?0, 




NO 


1900 data 145, 91 , 200, 208, 249, 202. 240, 6 


EN 
EH 


1230linenuni - S16 ,zpsK«agetoline» 
1240rapten - 120 temp sinng area 




BH 


1910data230, 90,230, 92,208,240,141, 3 


CE 


1250pickup - t22 




FO 


1920data255, 96,142, 1,255,177, 89,145 


MF 
HN 


I260sob - S2d :r>oWs 5lari addr of wofVspace 
1 270 L-lpIr - S3d ,in Chrge) rcXJlirK 




ON 


1930 data 91, 136, 192, 255, 208, 247, 202, 240 


PI 
OH 


1280 source - S59 

1 290 desi - source + 3 




PM 


1940data 6,198, 90,198, 92,208,238,141 


EB 


1300 (efnp = dBSt + 2 




HJ 


1950data 3,255, 96,132, 34,165, 94,240 


PD 
DO 


1310s^ltl - lemp + 1 
1320 .above zp loc'5 m Ip maih area 




OB 


1960data 64, 8,152, 24,101, 97,133, 89 


FB 


133D ,will be u»d lof mem moves 

3340 iinkpnir - $61 ;lor searching Ihru base pfgrm 




PO 
DP 


1970datal65, 98,105, 0,133, 90,173, 16 
1980data 18, 56,229, 89,133, 91,173, 17 


LL 
KD 
BA 


1350njiwo0e- S^l :0ildirecLl28ifrunrnnfl 
1360$ichlen = $c3 , used by lap© toad 

1370tlelimil = Sc4 




EB 


1990data 18,229, 90,133, 92,166, 92,232 


Bl 
PO 


1390 flag = ScS ,[ape toady^ave 

I390boriine = $94 .scfeeiiediiof varabes 




FA 
LD 


2000data 40, 16. 60,165, 91, 73.255,168 
2010 data 200, 132, 91,165, 89, 56,229, 91 


JK 
GC 
CH 


1 400 lopiine - $e5 
HlOkeHedge - Se6 
1420nlBedge - Se7 




AA 


2020 data 133, 89,165, 90,233, 0,133, 90 


AL 
Ml 


1430 -pos - Sec 

1 440 ypos = $eb ,curwr poaiion 




KA 


2030data 32. 85, 22. 32.147, 21, 32,107 


BE 
MB 


1 450 qisw - St4 ,quotB swich used by screen ed 
1460 .above val's reiairve to lop left 




AO 


2040data 22,165. 34. 56,229,195,105, 


KN 


1470 ,ol physical screen- r*olwir^oW 




MP 


2050 data 168, 162, 0,142, 1,255,189, 32 


PG 
GO 


MSOxsave = I<a 

I490ysave = Sit lunused by system 




LH 


2060data 11,145, 97,200,232,228, 32,208 


OF 

KD 


1500, 

1 51 .system vocKira and pomieis 




HG 


2070 daia 245, 132, 34,142. 3,255, 96, 32 


GG 


1520, 




AE 


2080data129, 22, 32,159, 22,164, 91,136 


ON 
LO 


1530basbuf = $0200 ;basic input buffer 
1540 lerroi = $0300 




FH 


2090 data 165, 89, 24,101, 91,133, 89,165 


LE 

cc 


, 1550ikey3lr - SD33c .vector Icxstorekeyrogline 
I560dirgel - $0300 




LG 


2100data 90,101, 92,133, 90,132, 91, 56 


HP 


I570chrgot - $0380 




NL 


2110data165, 89,229, 91,133, 89,165, 90 


JK 
JL 


1580paich - S03e4 :free space in rxunmon ram 

1 590 eob - Si 210 .holds nd addr of program 




HL 


2120data233, 0,133, 90, 32, 85, 22, 32 


LN 
KA 


1600 baEJim - ST2I2 .efKl of workspace 
l6lOC35hkft = SObOO .cl2Scas3enelHjft9f 




KO 


2130datal70, 21, 76, 6, 22, 24,165, 94 


EO 


ie205rchbul > cflsbul ,use cassene butfe 




OJ 


2140datal01, 89,133, 91,165, 90,133, 92 


OF 

ON 


IGOOrepbul - casbuftSZO 
1640; 




NO 


2150 data 144, 2.230, 92,165, 94, 16, 2 


MF 
CP 


1 650 , system rom tocaicns 
1660. 




FK 


2160 data 198, 92, 96, 24,165, 94,109, 16 


EN 
IL 


I670keysir = Sc6ad .o»d key store roulire 
I680mmu = SffOO .memory managervientunil 




CN 


2170data 18,141, 16, 18,144, 3,238, 17 


DM 


H^ ^^p ^^r ^^r ^^ ^p k^p 

lOMseilfs = Ittba 




EF 


21 80 data 18,165, 94, 16, 3,206, 17, 18 


DO 
LP 


1700oper - SftcO 
WlOdose - Sftc3 




OK 


2190data 96, 24,165, 94,109, 16, 18,172 


AE 
OK 


I720chkiri = Sffc6 
1730ckrchn - *WCC 


- 


nMlhawador *' 


r hk>cht987:VelMm#7,lmi*09 


] 





CL 


17*0gtrtin - tnthA 




00 


2780 jsr oprscfeen 






ME 


1750, 




DN 


2790chklJnup fsr hunlnmbr 






MC 


t760 .be&ic rom routines 




NN 


2B00 bcc foundup 


:we found a line ' 




t-G 


1770, 




CC 


2610 kla bodine 






FS 


1760readfm61- U2ec 


,lda(61},ylmbank0 


Gl 


2620 cmp ypos 


.are we aE bollam of screen 




HF 


1790readfm70- S42fl 


,lda($70),yfmbar^0ram 


MA 


2630 bne movrldwn 


.look lower if not 




DF 


IBOObasslpfcy ■ S4bb5 


,ch«ck stop kev-Cxeak ti piesssd 


IB 


2S40 isr pulback 


.fix cursrx & lio 




JO 


IBIOerroul - $403^ 


, normal basic errof handler 


JB 


2650 imp upoul 


.& prri the Cursor up 




AD 


lB20rel<r* - $4r4f 


,relink ba&c wflfspftc© 


CK 


2660, 






NA 


laSOhunlline - S5064 




PD 


2B70movitdwn- . 


;move cursor down screen 




LB 


I840IISTI - S5123 


Jcsl 1 Nr>e fm worl<space 


BK 


2SBD Ida vshinnn 






OM 


laSObasicci - S559B 


,piint a carnage re^jm 


NA 


2690 jsr bchrouT 


-print shifted reluf n 




U 


iseohneing - SSeTb 


,calcula1e line range fof hnctreplace 


MG 


2900 jmp chkfinup 


.QO back and do It agn 




MF 


iSTObD-itim - S92S1 


,ge1 in bank 1 5-pfinl loMowing lexf 


BD 


2gi0foundup - . 


,we goi a line 1 




OB 


laeObcTiriXJl - S9269 


,reslorebankl5&|mpchroui 


Of 


2920 J5I puEback 


.\n i/o & cursor 


■ 


HE 


1S90. = 11300 




CF 


2930 isr hunhine 


,see 4 il reaUv exisis 


] 


LB 


1900 imp hookup 




DD 


2940 bcc upoul 


,pf it's false 




MO 


1910, 




HA 


2950 jsr Bcrokhvn 


.make blank lirte at top 




ao 


1 920 newky^ - . 


.check for cursor moves on screen 


AE 


2960 ;now huni from beginning o( basic for Ime to be listed 




AA 


T930, 




AD 


2970akllnkk) = xsave 






JK 


1940 fut rL>nmode 




FA 


2980 aWlnhhi = v^ave 


,zp storage for oW link addr [line read Im screen) 




CM 


1950 bm^ baik>ul 


.A runnviQ piogram 


GJ 


2990 kl' linkpnir 






BE 


1960 ser 




BK 


3000 St' okJinkki 






EL 


1970 pha 


.Turn of kybrd rupl 


KF 


3010 k>a linkpnlT + 1 






GJ 

1 


1960 and rS7l 


10 eliminaTe reeniiancy 


ME 


3020 sLa oidlnkhi 


. save Imk addr ol top screen Ime 




KC 


1990 cmp Icrs^wn 


:is It ei^of up Of down 


GH 


3030 cmp sob*l 


.wasscreenhnefirslinprgrm 




Of 


2000 beq cxiward 


.w© may have lo do scmeihing 


CM 


3040 bne mit 






CG 


2010 pla 




HH 


3050 cpi sob 






OD 


2020 bskAa di 




HM 


3060 bne iml 


,ilnc4a[s(arl 




NM 


2030 imp keysir 




PH 


3070 sec 






JN 


2040 onward Ida sob + 1 




JB 


30B0 kla eob 






60 


2050 anp eobtl 




LI 


3090 sbc #02 


,etse aim at 




OH 


2060 biie OHMaidl 




HO 


3100 laK 






BJ 


2070 Idii sob 




AB 


3110 Ida eobtl 






MP 


2060 Ink 




IN 


3120 sbc #0 


;vaEue stored m iink ol 




GA 


2090 ini. 




DC 


3130 six cidlnkk) 






DL 


2100 cpr eob 




OH 


3140 sla oWlr>khn 


.last program line 




PD 


2n0 beq baHoul-l 


,i(noiein 


PO 


3150 isr SCroWwn 






DK 


2l20Qnwaid] pla 


.wTiich key fS il 


HG 


3160 isr sciokJwn 


:prinr 2 Uank Imes 




BM 


2130 tmi upward 


if it's cursor up 


BN 


ai70inii Id* sob 






NJ 


2140 downwar* 


,rt's a cursor down' 


EG 


3160 Ida 8ob+i 






01 


2150 kda boCline 




MH 


3190rstlink slii Imkpnir 






PF 


2160 cmp vpos 


:are we on bollom Ikie-eh 


GF 


3200 sie Imkpnir + 1 






HN 


2170 bne do*nout 


.ilno! 


EK 


3210 .aim linkpnir al appropriate address | 




«J 


2180 ^ l^eOge 




NF 


3220 |sr rdnwiink 


,get Imk of next Ime 




FA 


2190 cmp <pos 




OG 


3230 cmp oidlnkhi 


.do we have a maich 




EF 


2M0 beq thisi&Ji 




FB 


3240 bne rsHmk 


:keepk:iokm'ir nol 




EL 


2210do*nouMd3 Icrsdwn 




GD 


3250 cpx oldlnkto 


.isrtreallyamaich 




PC 


2220 bne bsilo<jl 


,j JSI pr Jril cursor down 


HG 


3260 bne rsllmk 


.took more if not 




Ml 


2230 thisisii 


cursor down Im bollom left \ 


CN 


3270 imp selupl 


Jisl line mrh Imkpnrr inlact 




HD 


2240 |5r savecrsr 


siDf e cursor posii-on 


GE 


3280. 






ID 


2250 js opn&creen 


.Turn on screen lof input i 


PM 


3290 opnscree» 


;sel screen as inpy[ device 




FC 


2260 ctikline jsf hunlnmbt 


,k>ok lof a line number on screen j 


MJ 


3300 kia #126 


.14el 




HD 


£270 bcc loundh 


A number found i 


GF 


3310 Wx 13 


;dev| 




GN 


2280 Ida 1ophn« 


.else dieck if at 1 


CM 


3320 jsr sellfs 






JG 


-^290 canp ypos 


.ropolwindowand i 


LH 


3330 |sr open 


;openl26,3 




PI 


2300 bne moveilup 


.kxA more jf nol 


DM 


3340 hln #126 






Bl 


2310 jsi putbach 




CH 


3350 /np chkin 


-make screen mput devce & (is 




PU 


2320 imp dowTriXJl 




GJi 


3360, 






AE 


2330 moveilup - 


:move cursor up to rtexl line 


MK 


3370hunlnmbf- - 


,hunt for line number on screen 




EJ 


2340 i&i bprknm 


sendiext 


CF 


3380 jelurn cany clear if digit was read | 




m 


2350 byiecf9jp.escape.*4a,0 


.cursor up,escape,'i' 


PJ 1 

1 


3390 jH gell 


,iead 1 char Im screen 




u 


2360 jmp cbkire 




LG 


3400 bcs donelme 


.it no digit found 




FK 


2370four>dii - • 


,|ine number found 


IE 


3410 here valid digit 0-9 was found | 




AL 


2380 151 putoa* 


;resiDre cursor a i/o channel 


BGi 


3420 and (SOf 


,converl lo binary 0-9 




Fi 


£390 Ida Icrsdwn 




HM 


3430 sia linenum 






FD 


?400 jSf bcliroui 


.print a cursor down 


LF 


3440 kla #0 






LF 


2110 jH (lunlline 


.find Ime within basic workspace 


J£ 


3460 Eta Imenum + i 


,sel up for cak;ulalion 




NC 


2420 bcc downoul 


,(f # read is nol a Ime # 


EO 


3460 read 1mo4» geti 






LK 


2430 ,lasE line listed r^as been kx:aied wiEhin basic wfl<space 


FD 


3470 bcc addm 


.read through all following digits 




LN 


24 JO now get Itnl' addr ol ne;-! i\ne 


OA 


3480 ck; 






EM 


2450 isi tdmvlink 


,read new lirik bytes 


JA 


3490 lis 


,afEer last d-grt found 




GL 


2460sertup six linkpnff 




ON 


3500 addm and i^SOl 






LK 


2470 sea lirhkpnirti 


.poini at next Ime 


CH< 


35)0 pha 


;converl and save digil 




NP 


2480 Idy #1 




GC 


3520 BSl linenum 






HL 


2490 |sr readlmgl 


-check ky zero 


PB 


3530 idi Inenumt! 






LB 


2500 .which rnear>s line on screen was lasiline- 


AK 


3540 bcs badnmbr 


:lnx2 




PO 


2510 ,o< pfgrm so ^ust lisT tifsT 




NF 


3550 W- linenum 






BC 


2520 bne selupT 


.If r>ol at end ot prgmi 


FK 


3560 kty Imenum * 1 


,saveH2vakje 




KJ 


2530 jBi bprimm 




JF 


3570 as! linenum 






CA 


2540 tjyItOd.SOd.OO 


.prml t*o blank Imes 


BF 


3560 rol linenLvn + 1 






BH 


2550 Uif sob 




OC 


3590 bcs badnmbr 






HP 


£560 Ida sob + l 


,poinl al f iisl Ime 


GH 


3600 asl linenum 






JK 


^70 bne seiilvjp 


.always {base never siarls on zero page) 


PG 


36^0 rc< linenLfn + 1 






JM 


25eOsenjp1 isr lisliE 




JL 


3620 bcs badnmbr 


,now-K8 




JA 


2590 Jda fO 




CO 


3630 c<a 






HG 


2600 sia Qtsw 


,cancel quote mode |ust m case 


NE 


3540 adc linenum 






JL 


2610 |H- bpfrtim 


.restore cursor lo lelt cl line 


DG 


3650 sla Imenum 


, carry IS clear 




PK 


2620 byl escape. £4a.O 


;bypnn1ingeBC-[ 


DA 


3660 lya 






EN 


2630 GA 




EE 


3670 adc linerumtl 






PH 


2640 ftB 


,and relurn 


KJ 


3680 sta linenum + 1 






AN 


2650, 




AG 


3690 bcs badnmbr 


:now<10 




CI 


2660 upward = 


Jot cursor up al top 


MP 


3700 pla 






KP 


2670 Ida loplme 




DJ 


3710 adc linenum 






AP 


2680 cmp ypos 




JK 


3730 sta Imenum 


.carry IS clear 




01 


2690 bne upoul 




NH 


3730 kJa »0 






CK 


2700 Ida koflodge 




Kl 


3740 ^c Imenum t1 






r^ 


2710 cmp j.po£ 




AO 


3750 sTa linenum + 1 






iNA 


2720 beq Jisanup 




ON 


3760 bcc leadlmore 






GP 


2730 upoul \6a #crsop 




AO 


3770 byl bitina 


-rnask uul pla on lalllhrough 




HI 


2740 bne dowrKiul+; 


? .long branch to taJoul 


ML 


3760 badnmbr pla 






ED 


2750, 


1 


MO 


3790 doneime rrs 






IM 


2760 iTsanup = . 




OE 


3800, 




FF 1 


2770 |si savecrsr 




LG 


3610 gell - - 


jead 1 fm screen-check il digil 



ih# wmwu ci or 



M 



MflRft 1907: VOtunw 7, toMM OS 



ON 

cc 

EK 
GC 
MG 
EN 
EB 
CH 
CG 
JH 
HH 
GE 
GG 
JM 
LL 
KG 
MP 
PH 
Jh 
GJ 
KC 
GC 
AD 
NC 
FD 
X 
LE 

KH 
FG 
00 
OA 
CK 
ED 
GL 
AF 
AN 
JN 
ML 
KP 
BJ 
MP 
AH 
HM 
LC 
PG 
CB 
BP 
10 
ME 
IP 
IK 
GA 
II 

PL 
AC 
PB 
MJ 
LC 
CM 
01 
CA 
EE 
MJ 
OK 
CP 
CG 
LG 
CL 
EB 
Gl 

CD 

NB 

FE 

EL 

KF 

JN 

PL 

\H 

MF 

Ml 

OF 

EO 

HC 

FN 

NF 

00 

EE 

GO 

0H 

KC 

AM 

HK 

NL 

OP 

CC 

LD 

FN 

LM 

AP 

NF 

PE 

EB 



3820 

3530 

3^0 

3S50 

3860 

3870le5s0 

3880 

SSQOsavecJsr 

3»0 

3910 

3920 

3930 

3940pulbad< 

3950 



cmp 

bcc 

cmp 

ris 

sec 

rTs 

Ida 

Ua 
sla 

rfS 
\6d 

^ 
Ida 

sTa 

Ida 

ris 



getin 

f'O" 
lessO 



.lmofflThan'9" 
:w/cclOf '0-9" 



KPOS 

hsave 

ypos 
ySflve 



1126 
close 
cl'Cftn 

ysflve 
/pos 



I? 
readlm61 



reaOlrrfil 

1611 

bpTimm 



39G0 

3970 

3960 

3990 

4000 

4010 

4020, 

4030lis|jt 

4040 Idy 

4050 js 

4060 iax 

4070 Iny 

4080 |Sr 

4090 rip 

4100: 

4T10scroklwnisi 

4120 byt escape ,SS7,0 

4130 fis 

4140: 

41 50 .ftiw wedge fotifme to' ci39 

4160, 

4170plchcode- 

4180 plw 

4190 Ida 

4200 sia 

4210 pta 

4220 imp 

4230; 

42405lafl 

4250 pale nien - 

4260 

4270 

4280 

4290 

4300 

4310; 

4320 ou^ef f jsr 

4330 W- 



,cl05e screen file 
,& resiofe lo channels 



,re&lOf e cursor posilion 



.feed line # into aSic 

.poiniallirfceftobyle 

.read il 

,savflil 

,poini ai linaF ^i byle 

jead \{ 

M base lisT line 

,pfinl escape'*" 
,tc scroll do*n 



,1c be vfEitEen to pdge 3 



■00 

jnmu 

start 



,g«| in bank 1 5 



. .aniwe l»eie on error 

■ 5lari-pIchcode 

jsi rstsysvc .resfoie veclor loi scroll routine 

Cpi* Isynerr 

bna wrong #2 

cmp ilwdgcfir 

br>e wfwig 



chrgel 



.parse added commands and dispaich 



fnumcmds- 1 



4340criklflble onp cmdtaDle.x 



gotil 



chkiable 
wrong 



4350 

4360 

4370 

4380 

4390. 

4400QOlit 

4410 

4420 

4430 

4440 

4450 

4460 

44:'0 

4480 

4490 

4500 

4510, 

4520 wrong 

4530 

4540, 

4550cmdlaae = 

4560 byleSal 

4570 byte £8b 

4580. 

4590 impibl 

4600 numcnKt^ 

4610. 

4620 wofdlind-l .replace- 1 

4630, 

4640,1 28 lind&iepldce 



beq 

bpl 

bmi 



Pta 

txa 

a^ 

tax 

Ida 

pha 

Ida 

pha 

imp 

idx 
imp 



.1 command tound 

.keepched^ing 

jepoif synlax error ollkeiwise 

,hefe *e execute command 

remove one raluf n address 



;mul(jplv fbfZ 

imptM + l,' >byle 



imptbl.' 

cbfgel 

Isynerr 
erroul 



,lob>le 

.set up return addr 

.^Ine'tchrifisfonewroulme 



gel' loken tor find 
it' uiken foi replace 



implbl-cmdtabie 



4650 find st» 

4660 replace - 

4670 beq 

4680 cmp 

4690 beq 

4700 cmp 

4710 bne 
4720 parsii sla 

4730 Id- 

4740 |£1 

4750 sty 

4760 Ida 

4770 beq 
4780; 

4790 Idx 

46O0 bit 

4310 bmi 

4820 |Si 

4830 OTip 

4840 bne 

4850 pr 



■Lag 

find 
wrong 

fS22 

paisit 
i' " 

wong 

deiTin 

#0 

gelstrrig 

sichlen 

Hag 
ad|usl 

fdnonly 
runmode 
wrong +2 
reselplr 

■tienioken 

WTorig 

chfger 



. =■ f w ftrvl. 2 lof 

,if no params 

;took toe doubte quoie 

.Of s-ngle quote 

only r*o above allowed 

.save Oelimitei 
.dim al ^arch butlet 

.lengd o( se^rc^ sinng-(3d} poinltr>g at delimiier 

,il nd repJacirtg 

,tor possfble erroi 

.check tor direct mode il replacing 
M texipir 

.musT have loken tor Ihen- 
,else syntax error 





EJ 


4060 cmp detimrt 


,then must have ddimiler 




£A 


4870 bne wrong 


,etse error 




Gl 


4880, 






JB 


4890 Idx »S20 


.point al repbuf 




NF 


4900 |5r gersirng 


jead replace string 




AP 


4910 Sty repten 


jeplacemeni sB'ir>9 length 




LK 


4920 tya 


jeplentoa 




DM 


4930 MC 






FP 


4940 sbc sichlen 


.1ir>d shill 




AN 


4950 sla Shift 






IF 


4960 ad|ust |Sr reselplf 


ipoml chrget al delmiier 




AO 


4970. 






JO 


49B0getlnrng |Sf linerrtg 


. setup line range ir> (61) and (16] 




MD 


4990 , (61) holds point in tHsc workspace wtiece search shoUd siari 




GC 


5000 .(16) holds highesl line ' wfiich should be 5earchad-now check; if in range 




JH 


5010 /np chkii 






CB 


5020; 






LF 


5030searchl - • 


:search thnj program Ire for ihe search sirmg 




MD 


5040 Idy *3 


;lo start on point at hi byte ime f 




CJ 


SOSOsearchTlldx #0 


,poin| to start of search butler 




PA 


5060 search 12inv 


,po.nnonei[tbyle 




DB 


5070 jsr readtm61 


,Qei b/e fm wrt^space 




PJ 


5080 beq donei^n 


;ilairxJolline 




OG 


5090 cmp srchbuf.x 


,checK lor malch 




Al 


5100 bne searchll 






CN 


5110 mv 






PP 


5120 cpx srchlen 


,do we have good match 




DE 


5130 bne searchl2 


.keep searching if nol-bul leave "pomiingmlobufler 




Kl 


5140; 






MA 


5150 Ida flag 


.whal are *e domg-eb 




OB 


5160 beq l«11ln 


J search and no replace 




JK 


5170 |5r insert 


;put lirte m basic wkspc 




GG 


5180 lar relirik 


,and fix up links 




IL 


5l90lisnin = . 


,hsl lound or chartged line 




OE 


5200 Fsr Islft 






PW 


5210 J5f basccf 






AE 


5220 isr basstpky 


.provide lor bailoul via stopKey 




MJ 


5230 Ids flafl 


,lesi (or find/replace 




MG 


5240 beq donexiln 


.if f irtding 




CA 


5250recteck = » 


, else go bach and buni lor furlber malches 




GG 


5260 Ida pickup 


,points one beyond replace sirmg 




FG 


5270 lay 






CM 


5280 dey 


:sel up tor hjrihef search -dey 'cut search wi my 




SM 


5290 bne aearcJili 


,go back and do again' 




JC 


5300doneitln - - 






CA 


5310 ]sr rdnwiink 


.adiusl(61) 




00 


5320 slK linKpnii 






BJ 


5330 sta linkpnlTtl 


hi byle ne-t link addr 




DF 


5340clihrt [sr chkhiln 






Nl 


5350 bCC search! 






CK 


5360 imp chrgol 


,and therbce lo basic 




AH 


5370. 






AG 


5380geiatrng = - 


;read a stfir>9 Irom chrgel mio buHef 




OD 


5390 |Sr chrgel 


.advance pointer 




DG 


5400 Idy '0 






LB 


54l0gelslrl Si:- mmu + l 


,swiich in bank 




MC 


5420 Ida (i^ipir).v 






JE 


5430 stx rnmu + 3 


.swilch in ram's 




JQ 


5440 cmp deLimil 


,ai erKJ of string 




KJ 


5450 beq doneget 






El 


5460 onp ilO 






GH 


5470 beq wrong? 


,cbecli fof line end belore delimiter 




EL 


5480 Sla sichbuf.x 






OE 


5490 mx 






MF 


5500 my 






CN 


5510 cpy 131 


;mai;imum Siring lenglti 




OJ 


5520 bne pelsfll 


.or fall thru to error 




JN 


5530loolong kl< "Ingalrng 






EF 


5540wrongl imp erroul 






NA 


5550doneoet opy ilO 


,cbech tor zero length 




LE 


5560 beq WTong2 






FK 


5570 rts 


;wilh string lenglh in y 




CE 


5580. 






OG 


5590 wrong2 Id:- #syr>arr 






NF 


5600 bne wrortgl 






A3 


5610; 






IK 


5620resetptr dc 






FL 


5630 tya 






KJ 


5640 adc ixlplr 






GN 


5650 Sla iHlpir 


;1wkHiyle 




OH 


5660 Ida txtpfr + 1 






DA 


5670 adc #0 






LA 


5680 Sta Uipu + 1 


r 




AH 


5690 imp cfvoet 


,ris Ihence wilh neKl cAar 




KL 


5700: 






JN 


57!0fnovedown 


.rnotfe msmcxy dowrtwafd 




OM 


5720, 






CK 


5730 sla rnmu * 1 


;iPlo bar*0 




LH 


5740 moweidvJda (sourcel.y 


:onen|ry 




OF 


5750 aia 1dest),y 


■x-#paQe&!ot)e moved -hI 




FC 


5760 my 


,y-356-#exce5Sbyle& 




CK 


5770 bne jnoveld*n .source = start ot Wock -/ 




FJ 


5780 de:- 


;(Jesl = source-shitt 




BG 


5790 beq donedowr 


1 




HP 


5800 iric source -t T 






NF 


5510 inc desftl 






FD 


5820 bne moveldwn 




HE 


5830 donedowflla rnmu +3 


:lurn on rom s 




ML 


5840 rts 






AF 


5850 






OH 


5860jTioweup = ■ 


;mDve mem upwai d 




EG 


5870, 






EJ 


5880 Six rnmu + 1 


jntobankO 




OJ 


5890 moveluplda 1source),y 


,wtien calked 



TTwIhontoctor 
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OE 

JH 
FM 
HD 
LO 
OK 
CH 
IN 
KK 
HO 
MF 
AP 
GD 
EA 
KJ 
DC 
IF 
£1 
FK 
AE 
CF 
Jl 
A( 
PM 
DH 
HB 
QJ 
HJ 
BO 
IB 
HH 
EN 
DD 
PM 
EC 
CC 
GO 
NP 
AD 
BG 
KU 
NL 
NB 
LD 
DF 
JH 
HA 
NfJ 
Ni 
AH 
FP 
AJ 
Kl 
OJ 
PO 
OL 
HF 
JP 
FG 
BK 
AA 
AJ 
CK 
CG 
JG 
EE 

PI 

Dl 
OG 

OD 
ND 

II 

FF 
PM 

lA 
BH 

El 

Jl 
NM 

LF 
DL 
NW 
BG 
FN 
LM 
HP 
NB 
LK 

Bl 

r^p 

GE 
PG 
PL 
OC 

HG 
CE 
CB 
TO 
MP 
DC 
NB 
FA 
OB 



5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 



sla 

ttey 
cpv 
bre 
de- 
beq 
dec 

briB 



5990doneup sla 



6000 

6010. 

6020 msec [ 

S030, 

6040 

6050 

6060 

6070 

6060 

6090 

610O 

6110 

613) 

6130 

6140 

6150 

6160 

6170 

6160 

6190 

6^00 

6210 

6220 

6230 

6240 

5250 



IIS 



Sly 

Ida 

beq 

php 

[ya 

dc 

adc 

sra 

Idd 

adc 

Jda 

sec 

sbc 

sra 

kda 

ST3 

Id. 
inii 

flip 

bp< 



6260 slewdowr^ 

6270 Ida 

6280 eor 

6290 lay 

6300 iny 

6310 sty 

6320 Ida 

6330 sec 

6340 Sbc 

6350 Sla 

5360 Ida 

5370 $bc 

5380 sia 

5390 |sr 

6400 |si 

6410 |Si 
6420, 

6430 slullii - 

5440 Jda 

6450 sec 

6460 5bc 

6470 adc 

6460 by 

6490 Idx 

6500 sft 
6510slutfi Ida 

6550 s]a 

6530 my 

6540 irnt 

5550 cpx 

5560 bne 

5570 sTy 

6580 stx 

6590 rb 
6600: 

6650ae*up - 

6620 |Sr 

6630 |Sr 

6640 Idy 

6550 6ey 

6660 Ida 

6670 cte 

66^0 adc 

6690 sia 

6700 iaa 

6710 adc 

6720 31a 

6730 Sly 

5740 sec 

6750 Ida 

5760 sbc 

5770 aa 

6780 Ida 

6790 Bbc 

6800 sja 

6810 isf 

6820 la 

5830 pp 
6840. 

6e50fii.()esl =■ 

6660 cic 

6870 Ida 

6880 adc 

6890 sra 

6900 Wa 

6910 sra 

6920 bCC 

5930 inc 



«lesi),y 

nti 

move 1 up 

doneup 
source + 1 
desl-tl 
moveiup 
mmu + 3 



.y-feircessbyles-l 

.jf - 'pages lo move + 1 

.source " end of tfock + 1 -ileKcess b/fes - end-y 

,clesE - source * snrTl 



picdup 

shiH 
siulhi 



linkpnir 
source 
linkpnli * I 
*0 

sixjrce + 1 
eob 

source 

desi 
eob + 1 

source -+ 1 
Oesf+l 

desiti 



sJewup 

deal 
»Srt 



desI 
source 

dast 
source 
source* I 

'O 
source ♦ 1 

llXdQSt 

rnovedcwn 

li;^eob 



picliup 

srcMen 

#0 

*0 

rnmu* I 
repbuf,» 

(hnkpnli).v 



replen 
sluffi 

pckup 
rnmu ♦■3 



roomalop 

longlirie 

desi 
source 

desr 

source 
source *■ 1 
dest + l 
source ♦ 1 
desi 

source 

6est 
source 
source *- 1 
ffO 

source -i- 1 
fi;idesl 
rrtoveup 
Sluffil-3 



shin 

source 
dest 

source * 1 
de^-tl 
checkdir 
desu 1 



.back fo orig tiar«^ 



.mseii repiacemerl sli\ng in program 

,poinis to Imal byle search sliuig 
.checli rf move needed 

:go ahead rt nor 

. save for larer 
.end o( search srnng 



sel source = slarl o1 block 



.se!des[ = blocksize 



:ii-reg rHm sei wiih iCpages-f 1 



.if iTiov'r>g up 
,else move down 



.y-reg new ae! 
.remporary 



.^|US1 source 
.common lo up and do*n 

.common ro up arid down 

,insert replace siring 
.final byle search siring 



.point 10 first byte search sfnng 
.poin(y9lrep»acenienl 

.inrobankO 



aimed one beyond rep slnng 
.restore rom's 
.Jep^srnenl complele 

.move mem upward 
.check ii mem available 

.checi< if line will be loo long 

.y sel lor move 



.source pnlinglo end of t'ock 
.temporary 



,li<eob and rewrite line 

.adjust dest pointer relalive lo source 

.low byle done 
.hi byte half done 
.add 1 iluarrysel 





FO 


6940 checkdir Ida shitt 






GP 


6950 bpl donedesi 






CD 


6960 dec desl*l 


.sub T fT shilKO 




OJ 


6970 donedesirfs 






KL 


5980. 






CD 


6990 l"eob = . 






OM 


7000 clc 






OJ 


7010 Ida sbiti 






PG 


7020 adc eob 






DK 


7030 a(a eob 


.fow byle done 




EB 


7040 bcc checkdrl 






Dl 


7050 inc eob + 1 


.add 1 i cs 




AG 


?060 checkdrl k»a shfl 






OF 


7070 bpl dor>eeob 






Nl 


7080 dec eob-f-l 






MO 


7090 doneeobrts 






CD 


7100. 






GF 


7U0rDomaiop- • 


.check lof room m mem 




GE 


7120 ck; 






GB 


7130 Ida shift 






HJ 


71 40 adc eob 


<new eob in a 




EF 


7150 Idy eob-*l 


.<hibyle 




KF 


7150 bcc loomenuf 






PG 


7170 my 


;if page boundary will be crossed 




AH 


7i80roomenuCpy baslim + 1 






IM 


7190 beq lillroom 






NN 


7200 bcs nwoom 






FA 


72T0roomok ris 






KN 


7220 lillrocm cmp baslnn 






Nl 


7230 bcc roomok 






IK 


7240noroom ld> jlnomemory 




FC 


7250 jmp BrrOut 






CN 


7260. 






lA 


7270longline = . 


.test if cbanged lirie wiN be too lorbg 




LL 


7260 Idy #0 






DP 


7290 jsr readfmei 


.get<linkloneAHir)a 




fA 


7300 sec 






AJ 


7310 sbc linkpnrr 


.find length of curreni Ime 




f^P 


7320 adc shiH 


.^ei new length 




f^O 


7330 bcs wtong3 


.1 line > 1 pa^ 




U 


7340 riS 






BD 


7350mong3 imp lodong 






MN 


7360chWii(n Idy #1 






CG 


7370 |SJ readlm6l 


.get line link hi b/fe 




'ke 


73B0. 






FM 


7390 bne comphi 


,nonzero hi link means not ^eod of program 




JG 


7400 sec 






FP 


7410 bcs done 


.else go back carry sei 




JL 


7420 comphi My #3 






Jl 


7430 (sr readfmfil 


. gel line#hi byte 




H0| 


7440 cmp 117 


.are we 1 misled 




MP 


7450 bcc done 


;il lower than 17 read Ihru tent-no! done^ 




JL 


7460 bne done 


:il higher than 1 7 me are Imished 




CJ 


7470 .rl hi byle Ir;* - (171 'hen check low byie 




DP 


7480 dey 






FN 


i 7490 |sr readfmei 


.get line # to byle 




BC 


1 7500 cmp S15 






IE 


1 7510 bcc done 

1 


flloi^rihan 16 carry ctear 




HI 


' 7520 beq domore 


.if equal 10 l6otherwisefalllhruwr|h carry sel to 




DA 


7530 byt bums 


,bnzp miruciion 




HE 


7540 domore cIc 


:lo rndtcaie more io do 




El 


7550 done us 


.rerurn with carry c»ear if m range- carry set i( beyornl 




AB 


7550 .{6 1 1.0 StiH holds cucfentlme Imh low addr 




MC 


7570.sDreaiiri(61} 






CB 


7580. 






GO 


7590 rdnwiink kly *0 






II 


7500 [sr read1m6i 






C^^ 


7510 la^ 


,tow byte of neKt link addr 




EK 


7620 my 






ML 


7630 imp readlmSl 


.link into '.a 




OE 


7640. 






OJ 


7650 hookup - 


llmkrnioc^raiingsysiem 




CG 


7560. 






PI 


7670 sei 






GL 


7650 IdN *patchlen 






OP 


7690 palchlup Jda ptchcode.^ 






MD 


7700 sta paich.i< 






FN 


7710 dex 






FM 


7720 bpl pafchlup 






JM 


7730 Wa #<palch 






DK 


7740 Sta terror 






JN 


7750 Ida #>palch 






OJ 


7760 sta terror 1 1 






LI 


7770rslsysvc »■ ■ 


.reveclor system keypress slore vector 




NP 


7780 aei 






KO 


7790 pha 






OL 


7600 Ida #<new^y5U 






LC 


7810 sia ikeysir 






OM 


7020 Ida *>newkyslr 






IB 


7830 sia ike/slr+l 






IC 


7840 pla 






ID 


7850 oh 






AK 


7860 ris 





TO 
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Commodore 64 
23K 'RAM Disk' 



Anthony Bertram 
Toronto, Ontario 



Make use of all that unused RAM in the 64! 



Here's a utility Ihal makes use of all the unused RAM in the 
C64, and is especially useful to those who are wishing for a 
second (or first!) disk drive. It can hold a single program as large 
as 93 blocks (23,808 bytes) and will save or load in either direct 
or program modes at blinding speed. 

The 23k Ram Disk adds only two commands to Basic: 

& = save 
\ = load 

There is no scratch command since each time the save is used 
it writes over whatever was previously saved. 

When used in program mode it works in the same way as 
loading from within a program using disk or tape; the second 
program should be smaller than the first, and once loaded, the 
second program will start to run automatically and all variables 
and strings from the first program will remain. In direct mode it 
is useful for program development, allowing fast storage and 
retrieval of programs or source code, making it easy to check a 
routine from another program, look at a directory or to tempo- 
rarily save the current program while another is RUN. It works 
great as an UNDO feature when working on a Basic program. 
although if can't UNDO a crash. 



How it Works 

The RAf^ DISK diverts the IGONE vector at $308/$309 and 
uses the RAM underneath the KERNAL, INPUT/OUTPUT and 
BASIC ROMS from $A000 to $FDOO for storage. The program 
saves whatever is in Basic memory, between the start of Basic 
(44/45) and the start of Variables (45/46). First the size of the 
program is calculated by simply subtracting the start of Basic 
from the start of variables - if the program is too large, the 
border colour will change, as a warning, and the program will 
not be saved. The length of the program is then subtracted from 
the lop of the RAM DISK storage area {$fdOO) and the result is 
the starting address at which the program is saved; the end of 
the saved program is always at SfdOO, regardless of length. 
Programs are always loaded back into the address pointed to by 
the start of BASIC (44/45) and the start of variables pointer will 
be set to point to its end. 



The RAM DISK program resides at the top of Basic Ram from 
$9EE8 (40680) to $9FFF (40959) so will not be compatible with 
any programs that use this area or the Ram under the KernaL 
The programs storage capacity can be easily changed, by 
changing one number in the loader programs^ DATA state- 
ments or by POKE-ing the number of blocks into 40723. to any 
size up to a maximum of 93 blocks. If there is a machine 
language program between $COO0 and $CFFF. the DOS wedge 
for example, the maximum blocks should be 44 to ensure it's 
not overwriten by the RAM DISK. With a 44 block maximum. 
the memory from SDOOO to $FDOO is used for RAM DISK 
storage and the memory from $A00O to $CFFF is free for other 
programs. Another example might be a revised version of Basic 
in the RAM between SAGOO and $BFFF, in which case a 60 
block maximum would be safe to use. The longer the program 
is, the closer to $A000 it will come. During the loading and 
saving process, interrupts are stopped and ail ROM memory is 
switched for RAM. In order to try to conserve memory, the 
program uses a Basic loader that pokes the ML into memory, 
lowers the top of Basic and runs the program. 



Compatibility 

Zero page memory from $FB to $FE and $01 is used during 

loading and saving but these locations are not changed because 

they are stored temporarily in the RAM above $FD52 and 

replaced after the Load or Save. The reason for this is to enable 

the RAM DISK to reside with other programs that use these 

popular locations. Another effort at being compatible is the use 

of the vector $0308/$0309, which is copied and moved to the 

top of the program so that if another program is in memory and 

using this vector when the RAM DISK is started, there won't be 

a conflict or a crash. It's a good idea, therefore, to LOAD and 

RUN the RAM DISK after you have other programs installed. 

The program is compatible with the DOS wedge and most 

BASIC extensions that reside at 49152 or the start of basic, 
including the FAST ASSEMBLER (computel's gazette) on which 

it was written and the popular PAL assembler. 



Word of Caution 



The load (\) command should never be used when the pro 
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gram is first started because it will cause the computer to crash 
as it tries to load a non-existent program. Therefore its a good 
idea to save the RAM as soon as the program is started. If you 
change the 93 in line 1050 of the loader program, the check- 
sum will add up to the wrong amount and stop the program 
with an error message. Either remove the checksum (line 130). 
change its value or POKE 40723 with the number of blocks 
after the program is loaded. A program to be saved must be at 
least one byte less than the maximum allowable blocks. 

Anyone that read the May '86 Bits and Pieces, Corrupting 
RAMTAS update, will have guessed why the RAM DISK only 
uses only 23.25k and leaves the lop of memory (above $FDOO) 
alone. The RAMTAS routine writes to (he RAM at $FD30 to 
$FD4F each time the RESTORE key is hit and will destroy any 
program thai was stored there. 



Conclusion 

As you can see, the RAM DISK works much like a disk or tape 
using program files. Its only drawback is that it can only hold 
one program at a time, but on the positive side it is simple, 
short and efficient and tries to be as compatible as possible with 
other software. 



C64 RAM Disk: BASIC Loader 



EB 
KK 
DM 
HE 
IH 
EG 
CC 
PA 
NP 
OL 
MD 
KE 
FP 
PG 
CA 
KG 
OP 
KP 
GL 
FP 
FF 
M 
AK 
IL 
PF 
KE 
GL 



9 
8 



100 rem* data loader for " ramclisk64' • 

1 1 for i = 40680 to 40959:read a:poke i.a 

120cs = cs + a:next i 

1 30 if CS041 825 then print " Idata error! " : end 

140 poke 55,231: poke 56,158: clr 

1 50 sys 40680 

1 60 print " ramdisk-64 activated! " 

170 print' & to save" 

180 print" \to!oad" 

190 end 

200: 

1000data173, 8, 3,141,254.159,173, 

lOIOdata 3,141,255, 159, 169,255, 141, 

1020da1a 3,169,158,141, 9. 3, 96,160 

lOaOdata 1,177,122,201, 38,240, 3, 76 

1040 data 119. 159, 32.115, 0, 56,165, 46 

1050data229, 44,201, 93,144, 6,206, 32 

1060 data 208, 76,194,159. 32,206,159, 56 

1070data165, 45,141, 90,253,229, 43,141 

lOSOdata 87.253,165, 46,141, 91,253,229 

1090 data 44,141, 88,253, 56,169, 0,237 

1100 data 87.253, 133,253.141,252, 159,169 

1 1 10 data 253. 237, 88, 253. 133, 254, 141 . 253 

1120dala159.165, 43,133,251,165, 44.133 

1 130 data 252, 160, 0. 177, 251 , 145. 253, 230 

1 140 data 251 , 208, 2. 230, 252, 230, 253, 208 

1 1 50 data 2. 230, 254, 1 65, 251 , 205, 90, 253 



KJ 

JN 

ML 

OP 

ON 

AF 

KK 

FK 

OK 

EE 

EL 

PA 

LD 

CI 

DB 

MJ 

GJ 

MA 

DE 



1 1 60 data 208, 
11 70 data 226, 
11 80 data 92, 
1 1 90 data 1 59, 
1200 data 159, 
1210 data 44, 
1 220 data 253, 
1230 data 253. 
1240 data 0, 
1250 data 228, 
1260 data 253, 
1270 data 231, 
1280 data 32, 
1290 data 141. 
1300 data 169, 
13l0datal57, 
1320 data 4, 
1330 data 248, 
1340 data 141, 



233,165, 

32, 231 , 
208, 71, 
173,252, 
133,252, 
133,254, 
230,251. 
208, 2, 
208, 234, 
165,123, 
133, 45, 
159, 108, 
161,225, 

89, 253, 
0,133. 

82, 253, 
189, 82, 
173, 89, 

13, 220, 



252, 205, 

159, 76, 
32,115, 

159.133. 
165, 43, 

160, 0, 
208, 2, 
230, 254, 
165, 252, 

201, 2, 
165,254, 
254, 159, 

76, 174, 

169,127, 

1,162, 

202, 208, 

253. 149, 
253, 133, 

96, 0, 



91,253,208 

194,159,201 

0, 32,206 

251,173,253 

133,253, 165 

177.251, 145 

230. 252, 230 
165,251,201 
201,253,208 
208, 14, 165 
133, 46, 32 

32,231, 159 

167, 165, 1 

141. 13,220 

4.181,251 

248, 96, 162 

251 , 202, 208 

1,169,129 

0, 0, 



C64 RAM Disk: PAL Source Code 



FD 


1 00 sys700 








GN 


110. opt 00 








00 


120; 








CP 


1 30 ♦ = $9ee8 








CA 


140; 








EK 


1 50 chrget 


= 


$0073 




JA 


leOciaint 


= 


$dcOd 




PM 


1 70 ban kin 


^ 


$01 




FP 


1 80 temp zero 


= 


$fd52 




LN 


190 tempbloc 


— 


$fd57 




FN 


200 tempreg 


J*w 


$fd59 




AF 


210 sov 


= 


$fd5a 




CG 


220 basicvec 


^^ 


$0308 




DB 


230 border 


= 


$d020 




GG 


240; 








OD 


250 ; ♦ ♦ ♦ ctiange basic vector 




HB 


260 


Ida 


basicvec 




AL 


270 


sta 


tempvec 


;move to end of program 


HD 


280 


Ida 


basicvec + 1 




PE 


290 


sla 


tempvec + 1 




EG 


300 


Ida 


#<ram 




HI 


310 


sta 


basicvec 




EH 


320 


Ida 


fr>ram 




HK 


330 


sla 


basicvec + 1 




AE 


340 


rts 






EN 


350; 








OJ 


360 ;♦" main 


routine starts here 




PI 


370 ram 


Idy 


#$01 




GK 


380 


Ida 


($7a),y 


;look ahead of basic 


PG 


390 


cmp 


i^"&" 


;check for character 


NN 


400 


beq 


r2 




PB 


410 


imp 


lode 




KG 


420 r2 


jsr 


chrget 


;start ofsave 


PC 


430 


sec 






AM 


440 


Ida 


46 




GN 


450 


sbc 


44 
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KL 


460 


cmp #93 


; check size 


GF 


1060 


bne 12 




HO 


470 


bcc r3 




PC 


1070 


inc $1c 




BN 


480 


dec border 


;warn too large 


GC 


108012 


inc $fd 




FM 


490 


jmp exit 




GH 


1090 


bne 13 




NC 


500 r3 


jsf zersa 




DF 


1100 


inc $fe 




PH 


510 


sec 




DE 


111013 


Ida $fb 




EM 


520 


Ida S2d 




IM 


1120 


cmp #$00 




LK 


530 


sla sov 




LN 


1130 


bne stid 




CO 


540 


sbc $2b 




FF 


1140 


Ida Sfc 




ND 


550 


sta tempbloc 


;get number biks low 


IH 


1150 


cmp #$fd 




PO 


560 


Ida $2e 




JP 


1160 


bne stid 




MK 


570 


sta sov + 1 




DB 


1170 


ida $7b 


;check for running prgrm 


NA 


580 


sbc $2c 




MA 


1180 


cmp #$02 




CJ 


590 


sta tempboc + 


1;numberblkshigh 


FC 


1190 


bne prgm 




JN 


600 


sec 




FP 


1200 


Ida $td 


;direct mode then set sov 


Fl 


610 


Ida #$00 




EL 


1210 


sta $2d 




GK 


620 


sbc tempbloc 


; subtract bIks 


Kl 


1220 


Ida $te 


;sov 


IJ 


630 


sta $fd 




EB 


1230 


sta 46 




CO 


640 


sla strdisk 


;start address in ram disk 


GA 


1240 


jsr zerlo 




PD 


650 


Ida #$fd 




KH 


1 250 exit 


jmp ftempvec) 




AP 


660 


sbc tempbloc + 


1 


JB 


1260 prgm 


jsr zerlo 




DM 


670 


sta $fe 




OG 


1270 


jsr $e1a1 


ibasic load routine 


mm* ' 

IP 


680 


sta strdisk +1 




HE 


1280 


jmp $a7ae 


;back to interpreter 


IG 


690 


Ida $2b 




NL 


1 290 zersa 


Ida ban kin 


;swilchoutroms 


1 ^^^ 

IN 


700 


sta $fb 




AH 


1300 


sta tempreg 




PH 


710 


Ida $2c 




OK 


1310 


Ida #$7f 




PO 


' 720 


sta $fc 




AC 


1320 


sta ciaint 


;kill interupts 


NF 


730 


dy #$00 




FF 


1330 


Ida #$00 




CN 


740 start 


Ida ($fb},y 


;source 


BK 


1340 


sta bankin 




IN 


750 


sta $fd},y 


; destination 


FN 


1350 


idx #$04 




GP 


760 


inc $tb 




OB 


1360ZS1 


Ida $fb,x 


;movetoasafespot 


LD 


770 


bne s2 




HP 


1370 


sta tempzerOpX 




NA 


780 


inc $fc 




LB 


1380 


dex 




CB 


790 s2 


inc $fd 




d; 


1390 


bne zsl 




LF 


800 


bne ^ 




EG 


1400 


rts 




BD 


810 


inc $te 




JC 


1410 zer 1o 


Idx #$04 




PC 


820 s3 


Ida $fb 




AJ 


1420zl1 


Ida tempzerOpX 


; put back 


ON 


830 


cmp sov 




KL 


1430 


sta $fb.x 




EC 


840 


bne start 




HF 


1440 


dex 




DD 


850 


Ida Sfc 




BL 


1450 


bne zll 




PB 


860 


cmp sov+1 


;keep going to the sov 


FJ 


1460 


Ida tempreg 


;switch romson 


CE 


870 


bne start 




DC 


1470 


sla bankin 




CJ 


880 


isr zer o 




EK 


1480 


Ida #$81 


; start interupts 


FF 


890 


jmp exit 




EO 


1490 


sta ciaint 




JO 


900 ode 


cmp #"\" 


;check lor character 


IM 


1500 


rts 




AD 


910 


bne exit 




OE 


1510 ;***••*••••** program variabes 


r X ki^F 

NC 


920 


isr ch rget 


;start of load 


CL 


1520 strdisk 


.byte 0,0 


;start address in disk memory 


ON 


930 


J ^ 

isr zersa 




JL 


1530tempvec .byte 0,0 


jpoints to interpreter loop 


AN 


940 


Ida strdisk 


istarl addrpR-s in fam disk 


KH 


1540; 






OF 


950 


sta $1b 


;slore in source 








CN 


960 


Ida strdisk + 1 










JO 


970 


sta $tc 










IE 


980 


Ida $2b 


;start of basic (low) 








Gl 


990 


sta $td 


; destination (low) 








PE 


1000 


Ida $2c 


;basic (high) 








IG 


1010 


sta $fe 


;destination(hiQh) 








PH 


1020 


Idy #$00 










LE 


1 030 stid 


Ida ($tb),y 


;sourcG 








AN 


1040 


sla ($fd),y 


; target 








IB 




1050 


inc $fb 










1 Ttel 


ranKidot 




t: 


i 
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Amiga Dispatches 

by Tim Grantham, Toronto, Ontario 



Report (rom the Shadowlands 

Wilh the demise of TPUG Magazine and one of the best jobs 
I've ever had, I found myself forced to accept work for one of 
the major computer retailers, configuring and installing PC 
compatibles for Fortune 500 clients. It's a dreary business. You 
need a plug-in card for everything, and they're all expensive. A 
Sysdyne colour/monochrome/graphics adaptor, for example, 
costs over $300 and takes up a 3 " by 4 " printed circuit board. 
(Exaclly the same functionality is provided by a $30 chip in the 
C-128.) By the lime you've added enough cards for a PC XT lo 
actually do anything, youVe spent three grand, and you still 
don't have a monitor, much less any software to run on the 
damn thing. But you'll never see a C-1 28 in a Bay Street office ■ 
after all, how could any self-respecting computer sell for less 
than $1000? Must be a game machine. I have developed a 
grudging respect for such machines as the Toshiba laptops - 
they're (ast. they're compact, and they don't look like they were 
designed by the Pentagon. And I have respect for such power- 
ful MS-DOS software as Word Perfect and AutoCAD, We need 
the richness these prc^rams provide to challenge the Amiga's 
capabilities (they can keep the prices). 

But then, 1 have just as much respect for good plumbing. My 
daily exposure to the PC world has brought about a new 
appreciation of the Amiga. It's in a class of its own: not just 
another glorified cash register but a synergizing lens designed 
by artists, for artists. 

The Amiga will find a place in business. It's encouraging to see 
the Mac gaining acceptance in the corporate world: now that 
the business software is in place, the executives are realizing 
that the graphic interface provides a built-in solution to what is 
an added (and worse, hidden) cost on the PC compatibles - 
operator training. And the Mac's success can only help the 
Amiga. 



Meanwhile, us wild-eyed creative types are having a wonder- 
ful time with the best unknown computer in the world. 

Software Newg 

The most important news is, of course, the release (at last!) of 
1 .2 Kickstart and Workbench, and of the Sidecar. I'll get to the 
Sidecar later on in the hardware section. 

At press time, 1.2 is to be released for about $15 (US) and 
includes substantial documentation of the new features. That's 
a bargain, considering the enormous improvements made - 
MS-DOS upgrades typically cost $85 (US). Charlie Heath, 
author of TXed, has as an excellent comparison review of 
Lattice C and Aztec C in the November issue of Byte. Now that 
1.2 has appeared. Lattice has released a major upgrade of its 
compiler, and it addresses (no pun intended) every concern 
raised by Cheath, and then some. According to a Lattice 
announcement, the goodies include: 

• A Iwo-disk package that includes a bootable system disk to 
simplify installation. 

• A greatly enhanced library with over 255 functions (over 1 00 
functions more than the standard Amiga C): 

• Faster pointer and integer math 

• Faster IEEE floating point routines (at least 5x) 

• Direct support of the Amiga's FFP format floating point 
library 

• A full macro assembler 

• And completely new, expanded documentation. 

"While remaining compatible with previous software, we have 
extended the object file format to include base-relative ad- 
dressing, and our linker will support base-relative addressing 
modes and pc-relative branches to target locations that might 
otherwise be out of range. Addressing modes may be freely 
mixed in a program." A Professional Developer's Package is 
also available and will include several development utilities, 
and the highly rated Metadigm Metascope windowing debug- 
ger. The prices are as follows; 

List Upgrade 
Uttice AmigaDOS C Compiler V3.10 $225 $ 75 
Professional AmigaDOS C Compiler $375 $225 

And if you're still not happy with Lattice's new-improved 
versionof Alink. John ToebesVIII, of Hack fame, and the folks 
at the Software Distillery have produced a compatible, fast 
linker called Blink, It's available on the Fish disks, and public 
networks. 
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A2tec, meanwhile, is beta-lesting an upgrade to their C com- 
piler that has a complete debugger and patches to run the 
current version under 1.2 

In other news on the wires: True Basic has a run-time module 
available, to create stand-alone Basic programs. . , PTE (Pro- 
fessional Text Engine) from Vladimir Schneider of Montreal 
provides fully programmable keyboard, menu, and mouse 
control. . , Grabbit! can dump HAM pictures, and any other 
screen, to any printer in Preferences, Won't print sprites, 
though, . . If you run Online! from the CLI and add a • to the 
command line ("online! '"), the program will come up in 
interlace mode. I tried this trick with Scribble!, a product put 
out by the same company, and that works too. . . After many 
announcements, Flight Simulator for the Amiga has been 
released, with two modes (Cessna, Lear Jet), and the ability to 
open up windows with different views. Jet will offer the intrigu- 
ing possibility of hookup via modem ~ pilot your Amiga in a 
dogfight with a friend across the world. . . Aegis has bought 
vl.l of Musicraft and is selling it under the name Sonix. . . 
Softeam is still struggling to produce their PC-ET IBM PC 
emulation program: it works, apparently, and multitasks under 
AmigaDOS, but is not fast enough. Many of the routines are 
currently being re-written in assembler to improve speed. , . 
Leader Board from Access has great golf graphics but Activi- 
sion^sMean-ISisthe greater challenge. . . 

Aegis Draw runs faster if you have expansion ram. Aegis has 
also released Draw Plus. . . The Spenser Organization. {201- 
666-6011), is coming out with an APL interpreter for $300 
(US). . . Brown-Wagh, the distributors of Scribble! and Ana- 
lyze!, is distributing Publisher! for the Amiga, written by North- 
eastern Software. For $200 (US) you get multi-column layout, 
text justification with kerning, wordwrap, mixing of IFF files 
within text (including resizing and cropping). . . There have 
been persistent rumours that Ashton-Tate ported dBase III to 
the Amiga some time ago. The story goes that they wanted a 
large sum of money up front from CBM to bring it to market, 
and CBM refused. Now it seems that they are waiting for 
enough Amigas to be sold to justify bringing it out. Meanwhile, 
the Word Perfect people are reportedly working on a full port of 
their renowned PC program. They had completed a stripped- 
down version, but decided Amigans would want a sophisti- 
cated word processor. Availability will apparently be the first 
quarter of '87. . . Alfred Aburto reports that the 68881 chip is 
supported under 1.2, but wasn't under 1.1. However, True 
Basicstillcrasheswiththe68020CSA board installed. , .Touse 
the vtlOO emulation in Online! under WB1.2, you need to load 
and run "setmap usaO" first. 

U is possible to use outside fonts in DeluxePrint, according to a 
Plinker who goes by the handle AHN769. Boot with DP, open a 
CLI. and assign fonts: to whatever disk contains the desired 
fonts. Then, load DPrint, and when the drive lights go out, put 
in the fonts disk. The fonts will load and are available even 
though the menus in Dprint will indicate the old ones. 



Chessmaster 2000, also from Electronic Arts is getting good 
response from purchasers. One can view the tioard from any 
angle (in 2-D or 3-D), play through a library of championship 
games, and have the program analyze one of your own games 
after play. It is apparently possible to multitask with Chessmas- 
ter if you invoke it from a CLI {without using "run"), and then 
use PopCLI (see below) to get another CLI. 

There have been vociferous complaints about the first version 
of Datamat, a highly touted relational database. Apparently, the 
AmigaDOS version is riddled with bugs, is difficult to use, and 
has dreadful documentation. Mark Callaghan of Transtime 
Technologies says, however, that free upgrades will be out by 
the time you read this that will fix bugs and provide Intuition 
support. A new manual is supposed to be out within the next 
six months. You can reach Markat7!6-874-2010. 

I was never able to get the Transformer to run PCTalk, a fine 
shareware terminal program. Others have had difficulty with 
similar programs. But word comes that Qmodem vl.08 {and 
only vl .08) will work fully under the Transformer. It's still very 
slow, but you can use another MS-DOS program called 
SPEEDY,COM to speed up the screen output. 

Superbase for the Amiga has arrived! It's on sale in England 
and should be available from Progressive Peripherals here 
soon. It is relational, makes full use of Intuition, and can use 
IFF data. The 'personaV version will sell for about $150 (US). 
The 'development' version will arrive later, have a command 
language and cost about $250. It is not copy-protected but uses 
a dongle{!). Progressive Peripherals is also selling Logistix. a 
programmable spreadsheet that can use the entire 8 megabytes 
of RAM available to the Amiga. 

Lastly, the richness of public domain software for the Amiga 
continues to surprise and please me ~ the Fred Fish disks, the 
Amicus disks, not to mention the wealth of freely distributable 
software on the boards and nets. Graphics, sound, program- 
ming languages, games, often of high qualify, are pouring forth. 
A few notables: Blink and PopCLI, Ohe latter lets you get a new 
CLI at any time, by just pressing an ESC-key combination), 
from the Software Distillery; DJJames's Comm, a fine terminal 
program; Fixhunk, a program you can use on programs like the 
first version of Scribble! to deal with the problem of gadgets 
mistakenly loaded into expansion memory (see last issue's 
column); hi-res HAM graphics created with ray-tracing pro- 
grams on mainframes and transferred; and psound. a share- 
ware sampled-sound editor/player that rivals the commercial 
versions from Futuresound and Mimetics. 

And Alonzo Gariepy's impressive KickBench utility - this lets 
you create a combined Kickstarl/Workbench disk that's ideal 
for such applications as bulletin board systems that must re- 
boot after a power failure. Lonnie has created a patch to 
Kickstart that causes it to convert the Kickstart disk (during 
bootup) to a standard AmigaDOS disk. If you have copied 
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Workbench to your Kickstarl disk (there's room only for a 
stripped-down version), you can place another of Lonnie's 
programs called "kick" in Ihe startup-sequence. Kick will 
rewrite the boot sectors on the disk lo change it back to a 
Kickstart disk so that, should the power go off, the machine will 
reboot and the whole sequence start over again. It's ingenious 
hacks like this that make life worth living. 



Hardware New« 

Despitemy disdain for things IBMish, the Sidecar is an impres- 
sive piece of hardware/ software- It's a 256K PCompatible, 
upgradable to 512K and with a built-in 5 1/4" drive, it can run 
almost anything that can run on an XT, and display it in a 
window on the Amiga, There are indeed three slots {Vm glad 
the single slot idea was killed) where you can put a hard-card 
that can be partitioned and used by both machines; a port for 
another drive (5 1 /4 " or 3 1 /2 \ usable by either the Sidecar or 
the Amiga, but not both at the same time); and two port 
extenders on the front for the mouse and joystick. Amiga 
expansion memory can apparently be placed between the two 
computers, partitioned, and used by both. Price in Canada will 
be under a $1000, and will probably include MS-DOS. (No 
keyboard port, morels the pity. Stick a display card in there, 
and voila!, Siamese computers!) 

Genlock should also be out shortly, after much delay. The Brits 
couldn't wait and designed there own version: unlike the North 
American one. it connects to the parallel port as well as the 
RGBA port, can be software controlled and, according to Jez 
San (author of Starglider for the Atari ST), can cause the video 
signal to replace any colour on the Amiga's display. Only in 
England, eh? Pity. 

Jay Miner, designer of the custom Amiga chips, has announced 
that Commodore is working on the next generation of the 
Denise and Agnes chips. They will be able to address the full 2 
Meg of chip memory; will have a much higher, non-interiaced 
resolution: and the blitter will be able to move 4K blocks of 
pixels rather than the current IK. These chips will be incom- 
patible with current Amiga 1000 hardware, but AmigaDOS 
should only require a minor upgrade. It might be possible 
though, to attach them to the expansion bus on a plug-in card. 

Which brings to one of the more intriguing stories floating 
around the nets. Commodore is eager to sell the Amiga custom 
chips to third-party hardware developers. A gentleman called 
Chris Barr. it appears, is engaged in serious negotiations with 
C-A, to manufacture an Amiga card for a PC - that is. an entire 
Amiga, complete with AmigaDOS in ROM and 4K of RAM. that 
would plug into a regular PC slot! The Sidecar in reverse - the 
Rumble Seat, maybe? An external drive would probably be 
required to load Amiga programs, but it may be possible to 
produce the card for well under $ 1 000 (US). 



TimbiU 

"Inside the Amiga", by John Thomas Berry, is essentially a 
programming-in-C-on-the-Amiga book, something I, for 
one, have been looking for to pull together the enormously 
diverse information about the Amiga. This does the trick 
admirably for $34.95 (Can.). . . The Amigaforum in Compu- 
Serve is as busy as ever, but my favourite is now the Amiga 
Zone on PeopleLink. The quality of the information there is 
almost as good as the much more expensive CompuServe, and 
there is just as much PD software, if not more. The sysops 
there. CBM*HARV, DJJAMES. CBM*STEVE. and AMICUS 
(John Foust) are friendly and unpretentious, and the Sunday 
night CO (conference) is always well attended. Furthermore, 
GSARFF and others are working on ACO (Amiga Conference). 
This is like VMCO on the Mac ■ during CO's, the faces of the 
people online are on the screen in caricature form and change 
expression as the conversation flows. . . Auto-config is in 
Kickstart so that Kickstart delects the extra ram and places the 
system tables there, thus freeing up more of the chip memory 
(this according to DJJAMES). There will also be a way provided 
to patch Kickstart: vector tables to routines can be adjusted to 
point to new routines in RAM. 

Finally, Atari Corp. is going public and has issued a prospectus. 

The interesting thing here is that they state that 150.000 STs 
have been sold, far less than the million or so machines 
previously claimed by Compute!, and essentially the same as 
the Amiga, However, the ST was released earlier^ and the (igure 
includes European sales thai have only just begun to happen 
for the Amiga. The truth gets out eventually. 

I would appreciate any comments or questions you may have 
about the topics discussed. 1 can be reached c/o The Transac- 
tor, or on CompuServe (71426.1646), or on PeopleLink (AM- 
TAG). 
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News BRK 



Submitting NEWS BRK Press Releases 

If you have a press release which you would like lo submit for (he NEWS BRK 
column, make sure that the computer or device for which the product is 
inlended is prominenliy noted. We receive hundreds of press releases for each 
issue, and ones whose inlended readership is not clear must unfortunately go 
straight to the trash bin. It should also be mentioned here that we only print 
product releases which are in some way applicable to Commodore equipment. 
News of events such as computer shows should be received at least 6 months in 
advance. 

Transactor News 

Subscription Intersection Set 

TPUG is now shipping The Transactor to its members. If you are a TPUC 
member, you probably recall getting two Transactor magazines last issue. This 
'^overlap" situation has since been dealt with. Using a formula based on (he 
total number of pages, your Transactor and TPUG subscriptions have been 
combined. The following chart shows how many Transactors with TPUG 
inserts you'll receive based on the remainder of both combined. 
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If for some reason we managed to miss an overlap and you again receive two 
magazines, please let us know. There were less than 400 matches in the two 
mail lisls. but slight differences in names or addresses would result in unde- 
tected matches. These are nearly impossible to find without a thorough eyebal! 
search. So if you are still getting two, please call us or TPUG and the adjustment 
will be made. 

Although we have a list ol the combined subscriptions, you won't notice any 
change in the expizy date on your mailing label. Since we still need to keep 
track of (he expiry of each subscription, we will probably need to make changes 

to our databases. Hopefully by next issue we'll have the labels adjusted too. 

No More GUNKS 

Thai's right, no more. We've just shipped the last of the G-Link C64 to IEEE 
Interface, and no more will be made. 

Schedule IRQ 

Most of you probably thought this would be the "Simulations and Modelling" 
issue. We interrupted our regularly scheduled programme to bring you this 
"Languages" issue due to the abundant supply of Languages type material 
we've received. We've also received very little material suitable for a Simula- 
lions and Modelling theme, so if you have something we might be interested 
interested in, send it in soon. We now return you to our regular programming, 
already in progress. 



Late Note 

The article "Blazin' Forth" in this issue is based on a Forth compiler actually 
called "Blaan' Forth" written by Scott Balantyne. The compiler would lake 
eons to enter by hand so it isn't printed in the mag. It is, however, included on 
The Transactor Disk for this issue, 

Superpaks from Distal Solutions 

Version 2,0 of the software trio from Digital Solutions is now in production. The 
new packages include both the 64 and 128 versions on the same disk. Each 2.0 
Pocket package will sell for $59,95 U5. or 184.95 Cdn.ASuperpak will include 

all three for $99.95 U.S, or $139.95 Cdn. The Pocket Dictionary is still $14.95 
U.S„ $19.95 Cdn, However, they won't be available from us until next issue. 

Version 1 .0 is still available, and at terrific prices! The 64 and 128 versions still 
come in seperate packages, and their prices can be found later in News BRK, or 
on the Mail Order card. But the real deal is the special price for all three. The 
C64 Superpak is $49.95 U.S. or 159.95 Cdn. C128 Superpaks are $59.95 U.S. or 
$69.95 Cdn. To top it off, we 11 throw in the Pocket Dictionary program for free! 

Free Transactor T» with Mag+Dlak Sutiscription 

For a limited time only, subscribe or renew to a combination magazine and disk 
subscription, and we'll send you a free Transactor T-Shirt! You save 29^ off the 
magazines, 16% off the disks, and gel a Transactor T worth $13,95 ($17.95 if 
you order the jumbo size!) The T-Shirts come in 5 sizes (red only), with a S-color 
screen featuring Duke, our mascot, dressed in a snappy white tux, standing 
behind the Transactor logo done in yellow with black "3-D" borders. The 
screen was done using a special "super-opaquing" pnxess that cost us quite a 
bit more than those decals that crack and fade. Mine has been through the wash 
at least 30 times now, and it still shows virtually no sign of wear due to 
"washing machine punishment". 



Transactor Wsk Price Increase 

A subscription to 6 Transactor Disks remains at $45.00. However, the price of 
single order Transactor Disks has been increased from $7,95 to S8.95 each - 
another good reason to lake advantage of the above offer! 

Refund Policy 

Should any product you order be defective on receipt, return it and we'll send 
you another for no additional charge. Recently weVe had a few items returned 
because ''it's not quite wtiat 1 wanted". We will credit your account (less 
shipping and handling) for purchases of other Transactor products, but we ask 
that you please be sure you need things like Micro Sleuths or RAM boards since 
we can't refund your money. While we'rt on the subject, although we've never 
had a subscriber ask for one. there are no refunds on subscriptions. 

Transactor Mall Order News 

New Suliscripdon/Mail Order Card 

We should have thought of this one sooner. The old mail order card brought 
two main complaints from many of our readers: sending a cheque meant 
pasting the card to an envelope, and the open face design left things like credit 
card numbers exposed. Thanks to Fred Cusick of Newmarket Onlario, our new 
card ehminales these problems. It also means we can increase the type size a 
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little, add more products, and stilT have room for some short descriptions. 
However, if you're using the card to order, we still suggest you pull it out and 
cross-reference with the list t>eiow for more details. 

When folding up the card, please be sure the proper address shows on the 
outside, [f our Buffalo New York address is showing and you drop it in a 
Canadian mail box (or vice versa), we're no( sure what will happen to It! We are 
sure it will slow things up for you. Also, please use tape to hold it together - 
staples may upset the delicate balance of nature at the post office and your card 
may become extinct, 

■ Moving Pictures - the C-64 Animation System, $29,95 

This package is a fast, smooth, full-screen animator lor. the Commodore 64. 
written by AHA! {Acme Heuristic Applications!}. Wilh Moving Pictures you use 
yo*ir favourite graphics tool to draw the frames of your movie, then show it at 
full animation speed with a single command. Movie 'scripts' written in BASIC 
can use tfie Moving Pictures command set to provide complete control of 
animated creations, BASIC is still available for editing scripts or executing 
programs even while a movie is being displayed. Animation sequences can 
easily be added to BASIC programs. Moving Pictures features include: split 
screen operation - part graphics, part text - even while a movie is running; 
repeat, stop at any frame, change position and colours, vary display speed, etc; 
hold several movies in memory and switch instantly from one movie to 
another; instant, on-iine help available at the touch of a key; no copy protection 
used on disk, 

■ Volksmodem 12, w/cable, and CIS Intro-Pack, $329.00 Cdn., $199 U.S. 
Nor oniy do you get the Volksmodem 12 (DOC approved), but you get the cable 
at no extra charge (the C64 cable goes diredly onto the User Port, and the 
RS232 cable is for any standard RS232 DB-25 female connector) Plus you'll 
receive a free CompuServe Iniro-Pak which contains a User ID, a Password, 
and $15.00 of connect lime! The Volksmodem 12 will work at 300 or 1200 
baud, and is "Hayes compatible" so it will work with virtually any terminal 
software t>ecause the commands are controlled by you from the keyboard - just 
type "AT" (for ATtention) and follow wilh any of several easy-to-remember 
commands - no special POKing or elaborate dialing routines necessary! (I've 
been using a Hayes for almost 3 years, and my Volks for over a year - 1 love 
them tMDthI ■ KJH] It comes with (get this) a 5 year manufacturer's warranty on 
parts and labour! The modem is shipped insured via UPS at no extra charge. 

■ Intelligent I/O Interface Cards 

■ BHIOO 1/0 Interface Card w /documentation $129 U.S., $199 Cdn 

■ BH100-AD8 ^Channel A to D Conversion Module $45 U.S., $69 Cdn 

■ BHIOO Beginners Course $159 U.S„ $239 Cdn 

■ BH 1 00-S Security System $25 U.S.. $39 Cdn 

These products from Intelligent 1/0 will make great Christmas gifts! And if 
you've been wondering what to do with that VIC 20 that doesn't get much 
atleniion anymore, they're perfect! If you've ever wanted to start doing some 
real world interfacing, real easy, and inexpensively, then these items are ideal. 
The boards they sent us for evaluation are currently watching for floods in nny 
basement. Too bad ! didn't think of it before the flood - it only look about an 
hour using spare parts I had lying around - no resistors, no capacitors, just two 
strips ol metal, a piece of styrofoam, a brick, and about 20 feet of wire that was 
also collecting dust. Once I get time, I intend to make it do some more 
surveillance smce only one channel is currently in use. And the program to do 
it? A quick and messy 5 lines! Since the boards are memory mapped through 
the cartridge port, a PEEK is all you need! The 22 page manual is clear and 
concise. All products come with a 90 day manufacturer's warranty. Shipped 
insured via UPS at no extra charge, 

■ Transactor T-Shirts, $13,95 and $17.95 

As mentioned earlier, they come in Small, Medium, Large, Extra Large, and 
Jumbo, They're 13,95 each, $17.95 for the Jumbo. The Jumbo makes a good 
night-shirt/beach^op - it's BIG. I'm 6 foot tall, and weigh in at a slim 150 
pounds - the Small fits me tight, but that's how I like them. If you don't, we 
surest you order them 1 size over what you usally buy. The design is screened 
using a "super-opaquing" process so they wear much longer than your 
ordinary screens and iron-ons. 



■ The Transactor Book of Bits and Pieces '1 , $1 4.95 

Not counting the Table of Contents, the Index, and title pages, it's 246 pages of 
Bits and Pieces from issues of The Transactor, Volumes 4 through 6. Even if you 
have all those issues, it makes a handy reference - no more flipping through 
magazines for that one bit that you just know is somewhere . . Also, each item 
is forward/ reverse referenced, Occassionally the items in the Bits column 
appeared as updates to previous bits. Bits that were similar in nature are also 
cross-referenced, And the index makes it even easier to find those quick lads 
that eliminate a lot of wheel re-inventing. 

■ The Tr®ns®ctor 1541 ROM Upgrades, $59.95 

You can burn your own using the ROM dump file on Transactor Disk *13, or 
you can get a set from us. There are 2 ROMs per set, and they fix not only the 
SAVE® bug, but a number of other bugs too (as described in RA. Slaymaker's 
article, Vol 7, Issue 02), Remember, if SAVE® is about to fail on you, then 
Scratch and Save may just clobber you loo. This hasn't been proven 100% , but 
these ROMs will eliminate any possibilities short of deliberately causing them 
{ie. allocating or opening direct access buffers before the Save). 

■ The Micro Sleuth; C64/ 1 541 Test Cartridge, $89,95 US., 11 29.95 Cdn. 
This cartridge, designed by Brian Steele (a service technician for several 
schools in southern Ontario), will lest the RAM of a C64 even if the machine is 
loo sick to run a program! The cartridge takes complete control of the machine. 
It tests all RAM in one mode, all ROM in another mode, and puts up a menu 
with the following choices: 

i) Check drive speed 

2) Check drive alignment 

3) 1541 Serial test 

4) C64 serial test 

5) Joystick port 1 test 

6) Joystick port 2 test 
7} Cassette port test 
8) User port test 

A second board, that plugs onto the User Port, contains 8 LEDs that lets you 
zero in on the faulty chip. Complete with manual. 

fl Inner Space Anthology S 1 4.95 

This is our ever popular Complete Commodore Inner Space Anthology, Even 
after a year and a half, we still get inquiries about its contents. Briefly, The 
Anthology is a reference book - it has no "reading" material (ie. "paragraphs"). 
In 122 compact pages, there are memory maps for 5 CBM computers, 3 Disk 
Drives, and maps of COMAL; summaries of BASIC commands. Assembler and 
MLM commands, and Wordprocessor and Spreadsheet commands. Machine 
Language codes and modes are summarized, as well as entry points to ROM 
routines. There are sections on Music, Graphics, Network and BBS phone 
numbers, Computer Clubs, Hardware, unit-to-unit conversions, plus much 
more. . . about 2,5 million characters total! 

■ The Toolbox (PAL and POWER) $79,95 

PAL and POWER from Pro-Line are two of the most popular programs for the 
Commodore 64. PAL is an easy-to-use assembler (most assembler listings in 
The Transactor are in PAL format), and POWER is a programmer s aid package 
that adds editing features and useful commands to the prc^ramming environ- 
ment. They come with two nice manuals, and our price is $50 less than 
su^iested retail! 

■ AXIOOO Amiga 1 MEG RAM Box S729.00( + $100 S&H)U.S„ 

$iO35.O0( + S25S&H)Cdn 

■ AX2000 Amiga 2 MEG RAM Box $899.00 (+$100 S&H) U.S., 

$1276.00{+S25S&H)Cdn 
The AX2000 adds 2 Megabytes of "fast" RAM to the Amiga, allowing more tasks 
to run in the system at once, or for use as a fast RAM-drive, The unit plugs into 
the expansion connector on the side of the Amiga and duplicates the connector 
for other devices to plug into. Up to two RAM boards may be plugged in 
togelher(limitedby the Amiga'a power supply), adding 4 Megabytes. The box 
has "auto-config", so with Kickstart 1 .2 the RAM will automatically be added to 
the system when it is booted, l\ you are using Kickstart 1.0 or 1.1 (no auto- 
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config). you can use Ihe program included wilh the AX2000 to add Ihe memory 
lo the system, and change your startup-sequence lo aulomalically add the 
meirory on power-up. Standard expansion bus architecture was used In the 
design of Ihe AX2000, ensuring compatability with all peripherals and operat- 
ing system releases. The unobtrusive steel box is the same height and colour as 
the Amiga, and snugs up to the side without taking up much extra space. The 
unit is built tough and comes wilh a I year manufacturer warranty. 

This seems to be the most highly-recommended Amiga RAM board, and the 
firs( one lo actually be available^ so we're selling it here at The Transactor, You 
can order the AX2000 or the 1 -f^eg AXIOOO from ihe subscription form in this 
issue. Shipping and Handhng lo the U.S,A. is via courrier and includes alt 
custoras clearance, or you can opt to clear shipments yourself and have it 
shipped ''collects 

■ Superpakl.O C64 5^95 US.S59.95Cdn 

■ Pockel Writer C64 $29.95 US, S39.95Cdn 

■ Pocket Planner C64 S29.95 US. $39.95 Cdn 

■ Pocket Filer C64 129.95 US. $39,95 Cdn 

■ Superpakl.O C128 $59.95 US. $69.95 Cdn 

■ Pocket Writer C128 $39.95 US, $49.95 Cdn 

■ Pocket Planner C128 S39.95 US, S49.95 Cdn 

■ Pocket Filer Ci28 $39,95 US. $49.95 Cdn 

■ Pocket Dictionary $14.95 US, $19.95 Cdn 

As mentioned earlier, you can now get all 4 programs from Digital Solutions for 
one low price! in fact, even if you average Ihe price of all four, it comes to less 
than the price of two! 

■ TheTransBASIC Disk $9.95 

This is the complete colieclion of every TransBASlC module ever published up 
to Volume 7,lssue01. There are over 120 commands at your disposal. You pick 

the ones you want to use, and in any combination! It's so simple that a 
summary of instructions fits right on the disk label. The manual describes each 
of the commands, plus how to write your own commands. 

■ Super Kit 1541 $29,95 US, $39.95 Cdn 

Super Kit is, quite simply, the best disk file ulitity there is. No more losing those 
valuable copy-protected originals (like what's happened lo me Iwice too many 
times). So far we've shipped over 600 Super Kits and orders continue to pour in. 

■ Gnome Speed Compiler S59.95 US, $69,95 Cdn 
This compiler is for BASIC 7.0 on the Commodore 128, 

■ Gnome Kit Utility $39,95 US. $49.95 Cdn 

Gnome Kit is a Commodore 128 utility with enhancements for the BASIC editor 
(like Trace, Find. Renumber. Delete, Auto, etc) as well as enhanced monitor 
commands, and floppy disk monitor functions. 

Iransactor Disks, Transactor Back Issues, and Microfiche 

All issues of The Transactor Irom Volume 4 Issue 01 forward are now available 
on microfiche. According lo Compulrex. our f iche manufacturer, the slrips are 
the "popular 98 page size", so they should be compatible with every fiche 
reader. Some issue are ONLY available on microfiche - these are marked "MF 
oniy". The other issues are available in both paper and fiche. Don't check both 
boxes for these unless you want both the paper version AND the microfiche 
slice for the same issue. 

To keep things simple, the price of Transactor Microfiche is the same as 
magazines, with one exception, A single back issue will be $4.50 and subscrip- 
tions are $15,00. The exception? A complete set of 18 (Volumes 4, 5, and 6) will 

cost just $39.95! 

This list also shows the "themes" of each issue, "Theme issues" didn't start 
umil Volume 5, Issue 01. The Transactor Disk *1 contains all program from 
Volume 4, and Disk '2 contains all programs from Volume 5, Issues 1-3. 
Afterwards there is a separate disk for each issue. Disk 8 from The Languages 
Issue contains COMAL 0.14, a soft-loaded, slightly scaled down version of the 
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COMAL 2.0 cartridge. And Volume 6, Issue 05 published the directories for 
Transactor Disks 1 to 9. 



■ Vol. 4, Issue 01 (■ Disk 1 ) ■ Vol, 4, Issue 04 

■ VoL4, lssue02 (■ Disk 1) ■Vol, 4, Issue 05 

■ Vol. 4, Issue 03 (■ Disk \) ■ Vol. 4. Issue 06 

■ Vol. 5, Issue 01 -Sound and Graphics 

■ Vol. 5. Issue 02 - Transition to Machine Language 

■ Vol, 5, Issue 03 - Piracy and Proleclion - MF only 

■ Vol. 5, Issue 04 - Business & Education - MF only 

■ Vol. 5, Issue 05 - Hardware & Peripherals 

■ Vol. 5, Issue 06- Aids & Utilities 

■ Vol. 6. Issue 01 - More Aids & Utilities 

■ Vol. 6. Issue 02 - Networking & Communications 

■ Vol. 6. Issue 03 - The Languages 

■ Vol. 6, Issue 04 - Implemenling The Sciences 

■ VoL 6. Issue 05 - Hardware & Software Inlerfacing 

■ Vol. 6, Issue 06 - Real Life Applications 

■ VoL 7. Issue 01 - ROM / Kernel Routines 

■ Vol, 1. Issue 02 - Games From The Inside Out 

■ VoL 7, Issue 03 - Programming The Chips 

■ Vo!. 7. Issue 04 - Gizmos and Gadgets 

■ VoL 7. Issue 05 - Languages il 



Industry News 

The following items, compiled by Astrid Kumas, are based on press releases 
recently received from the manufacturers. Please note that producl descrip- 
tions are not the result of evaluation by The Transactor, 

Sorry, Wrong Number 

Arghg^ Two wrong numbers actually. The phone number of SoftTools, page 80 
of the last issue, should be (514) 739-3046. The number for innovative 
Software, also on page 80, should be (215) 372-5438. Our apologies for any 
inconvenience these errors may have caused. 

The MSD DOS Reference Guide 

David Martin plans to release his first book publication on December 1 , 1986. 
The book enlitled. The MSD DOS Reference Guide", is for MSD single and 
dual drive owners who are interested in exploring their drive's Operating 
System. The guide provides a fully commented RAM map and source code 
ROM memory map. The SOM maps consist of source code so that a program- 
mer can follow the inner workings of Ihe DOS much more easily. The book also 
provides some nifty prc^rams (utilities, etc.) that are ready to key in and enjoy. 
A separate disk is available for folks that are too busy to type in the book's 
programs, h will also include a collection of MSD public domain utilities as an 
added bonus, 

USA $20.00 Book S6.00 Disk S3,00 shipping (add $5.00 for COD) 
Canada S30.00 Book $8,00 Disk $7.00 shipping 

Make cheques payable to David W. Martin 

1417South Heron Drive 
Seabrook, Texas. USA, 77586 

New Services on Quantumlink 

QuantumLink, a telecommunicalion service for Commodore computer owners 
across United Slates and Canada, has added several new options to their 
information and entertainment sections, 

QuantumLink has recently added to its service a forum for users of GEOS. 
GEOS, (Graphic Environment Operating System), is an icon- and menu-based 
software program that gives a Commodore computer the look and feel of a 
Macintosh, The new interest group provides support via Question and Answer 
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sessions with the developers of GEOS (Berkeley Softworks}, conferences to 
discuss GEOS applications, and news on the latest GEOS developments and 
software. 

In an effort to allow QuantumLink members to visualize their onNne acquaint- 
ances via digitized photos, an online Photo Gallery has also been introduced. 
Special photographic equipment converts subscriber photographs into com- 
puter pnDgrams. Each program is then placed online in the Photo Gallery for 
other users to download and display. 

The Mali, QuantumLink's shopping section, has been expanded to include 
additional discounted products and a live auction, 

RockLink. QuantumLink's most entertaining addition, offers the latest news 
and information on all aspects of the music industry. Special guests, including 
musicians, writers and producers from around the world, appear monthly for 
online discussions in the Auditorium. RockLink offers a rock library of 
historical hits, a music review board for users to post their own opinions, a dally 
music trivia question, backstage gossip, information on recent video releases, 
concert dates etc, 

Users who would like to subscribe for the QuantumLink services can obtain 
more information by calling 800-392-8200. QuantumLink's basic service costs 
S9.95 US a month and can be accessed with a Commodore 64 or 1 28 computer. 

Paperclip ]l for C-128 

Batteries Included have re-designed their best-selling wordprocessor Paper- 
clip for use on Commodore 128. The new version, called P^rClip If, is now 
available for $99,95 Cdn, or $79,95 US. PaperClip irs new features include; 

• multiple columns, reverse video scroll, chaptering; 

• fast, integrated 30,000-word spelling checker; 

• maximum document size expanded to 999 lines; 

• built-in telecommunications module to access on-line services; 

• compalibiiily with C'-64 PaperClip text files. 

(n preparation is PaperClip Ehte - Paperclip's version for the Amiga. It will be 
released some time next year. For more information, contact: 

Batteries Included 
30 Mural Street 
Richmond HilL ON 
L4B1B5 (416)88l"9941 



New ProducU for C- 1 28 from Abaciu 

Abacus Software has announced the release of three productivity packages for 
the Commodore 128 computer. 

SpeedTerm 128 is a command driven terminal program that can be used with 
most modems for the C-128. in addition to the standard options. It also offers 
support for Xmodem and Punter file transfer protocols, VT52 and VTIOO 
terminal emulation with cursor keys, a 45K capture buffer and user definable 
function keys. 

TAS-128 is a technical analysis system for stock market charting. Using TAS- 
128, the investor can automatically download indicators from DJN/R5 or 
Warner and then build a variety of charts on the split screen: 7 moving 
averages, 3 oscillators, 5 volume indicators, comparison charts, trading bands, 
least squares and others. The user can also lake advantage of such features as 
automatic and unattended logon, fast-draw charts using up to lour windows, 
and macro capabilities. 



Su^ested retail price for each of these products is (59.95 US. For more 



information, contact: 



Abacus Software 
2201 Kalamazoo S£. 
Ra Box 7211 
Grand Rapids Ml 
49510(616)241-5510 



Extend-A-Key 



Extend-A-Key is asmali device from Cox Enterprises, It should come handy to 

users who upgraded from C-64 to C-128 computer, and at the same time own a 
lot of C-64 software- Many old copyright protected programs operate only with 
an accompanying key made for the C-64. The same key most often does not fit 
into the C-128. Extend-A-Key allows for a simple retrofit of old keys and oJd 
software to the new C-128. The device plugs directly into the joystick port on 
the C-128. 

The price for Extend-A-Key is $6.95 US including postage. The orders should. 
be sent to: 

Cox Enterprises 

883 S,L Bethel Place 

CorvallisOR 

97333 

Aegis Art Pak, Volume 1 

There is a new addition to Aegis' line of graphics software for the Commodore 
Amiga. 

The Art Pak series is designed to provide the Amiga user with precreated art. It 
can be used with the Aegis Images professional paint program, Aegis Animator, 
and with Aegis Draw, the entry-level CAD program for the Amiga. Art Paks 
retail for $34.95 US each. 

Volume 1 includes photograph quality artwork of buildings, which can serve as 
backdrops, or as pieces of eel animations for creating one's own moving 
animations. For additional information, contact; 

Aegis Development, Inc. 
2210Wilshire Blvd. '277 
Santa Monica CA 
90403(213)306-0735 

File Archive UtUity for tiie C-«4 

ARC, a new product from Ampere Metal, creates file archives using data 
compression techniques. It allows the user lo combine any number of related 
files into a single archive file which is generally 20 to 60 per cent smaller than 
the combined lengths of the original files. Archives can later be dissolved to 
obtain exact duplicates of the contained files. 

ARC is available as an extension to the BASIC interpreter and adds several 
direct mode commands including a simple text editor and an MS DOS like disk 
intedace. ARC supports multiple drives. An 30-column version is available for 
the Batteries Included Bl-80 adaptor. 

ARC sells for $20,00 US. and can be ordered from: 

Ampere Metal 
80 Hale Road. Unit 4 
Brampton, Ontario 
Canada, L6W3M1. 



The last of the newly released products is PPM-328, an upgraded C-128 
version of Personal Portfolio Manager for tracking the performance of slocks, 
bonds or options. 
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President's Report 

In the past year, there have been some signifi- 
cant changes to the operation of the dub. Some 
of those changes that have taken place, or are 
in progress, include: 

We have moved again, our new address is 5300 
Yonge Street, which is right on Ihe TTC route 
about 1 mile north of the 401 , Our rent is now 
$1000 per month, down from $3000 per month 
at the Duncan Mill address. We also have a little 
more space. While we are still in the basement 
as before, our usable space is now 2,000 square 
feet instead of 1 ,500 square feet. 

As of September of this year, we have discontin- 
ued producing our own publication, TPUG 
Magazine, Instead, we have contracted the 
Transactor to produce a magazine for us. This 
will consist of the normal Transactor magazine 
- at»out 80 pages of excellent material 100% 
advertising free - as well as an eight-page 
TPUG supplement produced iust for TPUG. The 
reason for this is simple. We could no longer 
afford the luxury of our own glossy magazine at 
the present size of membership (8000 + ), We 
also have not been successful in getting ade- 
quate advertising revenue for TPUG Magazine 
to ease the burden. Moving to the Transactor 
will cut our costs in half, while at the same time 
provide our members with a quality magazine. 

Since most of the financial work is being han- 
dled by our accountant, we have reduced staff 
in the TPUG office. Al! of the magazine staff and 
some of the office staff were laid off. We now 
have two people, one full-lime, one part-time. 
in the office to handle such things as meetings, 
disk copying, answering mail, etc. Our operat- 
ing costs will now be more in line with the 
present size of the club. 

We have added meetings for some of the new 
machines produced by Commodore, The 
Amiga and C-128 meetings have been going on 
for about a year now and are in full swing with a 
large number of new disks added to our library. 

We have also produced a new VIC 20 and C-64 
catalogue. The C-64 catalogue appeared in the 
first edition of the TPUG/Transactor insert- 
After two years of losing money, TPUG made a 
slight profit of $6503 last year. With the reduced 
cost of the magazine, office rent and salaries, 
we should also do quite well this year. 



Last year we ran the Commodore SIG on Com- 
puServe for several months. However, after our 

contract expired, we losl that contract to an ex- 
board member, Louise Redgers. We are still up 
and running on Delphi, which helps us serve 
our members all over the world. 

I would like to thank the many volunteers who, 
over the years, have helped to make TPUG 
what it is today. Some of these people include: 

Our meeting co-ordinalors; Donald Dalley, Vic- 
tor Gough, John Easton, Allan Farquharson, 
Gerry Gold, Avy Moise, Anne Gudz, Don Far- 
row, Jim Hamilton. Keith Falkner. Gord Camp- 
t>ell, William Barren, George Skinner, Mike 
Donegan, 

Our librarians: Mike Donegan, Keith Falkner. 
Gord Campbell, Adam Herst, Colin Justason, 
Bill Dulfield, George Davis, Derick Campt>ell. 
Victor Gough, Richard Best. Paul Atchison, 

Our Board of Directors: Carl Epstein, Gerry 
Gold, John Easton, Anne Gudz, David Bradley, 
Richard Bradley, Keith Falkner, Mike Donegan, 
Gary Croft. 

Our BBS operators: Sylvia Gallus, Steve Punter 

I would like to close by thanking all of you for 
your support throughout the last year, and wish 
you luck and continued success in the years to 
come, 

Chris Bennett, TPUG President 1985-1986 



TPUG BBS 

telephone number: 

(416)273-6300 

Operating hours: 
24 hours per day 
7 days per week 
The password is. . . 

NOEL 



TPUG MEETING SCHEDULE 

Sept 1986 to June 1987 

All meecing^ begin at T:3Q pm sharp, unless (^herwLse 
specified. Capitalized dates indicate thai the meeting 
does not lall on its normal day of the month. 

VIC 20 Chapter: York Public Ubraiy, 1745 E^linton 

Ave. W. (just east of Dufferin) in the Story Hour Room on 

Ihe second Tuesday of the month unless olheiwise 

specified. 

1986:Decl9 

1987:Janl3. FeblO. MarlO,Aprl4, Mayl2,June9 

Commodort^ 128 Chapter: York Public Ubraiy, 1 745 

Eglinton Ave. W. {jusl easl of Dufferin) in the auditorium 

on the firsl Tuesday of the month unless otherwise 

specified. 

1986: Dec 3 

1 987: Jan 6, Feb 3, Mar 3, Apr 1. May 5, June 2 

COMAL Chapter: York Public Library, 1745 Bghnton 
Ave. W, (jusl easl of Dufferin), in the Story Hour Room on 
the fourth Tuesday of the month unless otherwise speci- 
fied. -^ 
1986: DEC 18 
1987: Jan 22. Feb 24, Mar 24, Apr28.,May 25, June 23 

Amiga Chapter: Clarkson Secondary School, Broms- 

grove, just easl of Winston Churchill Blvd,, Mississauga; 

at 7 p.m. in the Little Theatre on the third Thursday of 

the month, unless otherwise specified. 

1986: Dec 18 

1987:Jan22,FEB13, MARl3,Aprl6, May22,Junei9 

Westside Chapter: Clarkson Secondary School, 

Bromsgrove. just east of Winslon Churchill Blvd., Missi^' 

sauga; in the Little Theatre on the third Wednesday of 

the month, unless otherwise specified, 

1986: Dec 18 

1987: Jan 22, FEB 13, MAR 13. Apr 16, May 22, June 19 

Brampton Chapter: Brampton Public Library, Four 

Corners Branch, 65 Queen Si., on the second Thursday 

of the month, unless otherwise specified. 

1986: Dec 11 

1987: Jan 8, Feb 12, Mar 12. Apr 9, May 14. June 1 1 

68000 Chapter (formerly SuperPET): Curtis Lec- 
ture Hall C, York University Campus (on the north side 
of the ROSS Building), on the third Wednesday of the 
month unless otherwise specified. 
1986: DEC 10 
1987:Jan21,FEBll,Mar 18,APR8 

Commfidore 64 Chapter. Auditorium, York MillsCol- 
legiale Instilule (on Ihe north side of Wilson Ave. be- 
tween Bayview and Leslie), on Ihe last Monday of the 
month unless otherwise specified, 
1986 -DEC 15 
1 987 - Jan 26. Feb 23, March 30, Apr 27, May 25, Jun 29 

Eastskle Chapter: Dunbarton High School (go north 

on Whites Rd. from The traffic lights at Highway 2 and 

Whites Rd. to next traffic lights; turn left to parking lots), 

on the second Monday of the month unless otherwise 

specified, 

1986: Dec 8 

1987: Jan 12, Feb 9. Mar 9, Apr 1 3, May 1 1 , JUNE 1 
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Total Software 
Development System 

from Piratebusters 

Assembler editor 

and programming utilities 

for Commodore 64 

and Commodore 128 



(he disk is a collection of extra prc^rams, seem- continue lo push the program up Ifie screen by 

ingly thrown In as a bonus. Because of this isola- cursoring down; to make room for typing you 

lion, each program will be treated separately have to switch to return or shift/return. In other 

below. programs, I would call that an annoying quirk, but 

SYSEDT' The Editor ^^^^^ spending some lime with TSDS, 1 can't help 

thinking that Kevin Pickell (the autfior) purposely 

When you load TSDS (or boot the disk on the made the scroll work in precisely the manner it 

C-128|, the sysedt program comes up, along wiiti does, for some reason 1 just don't appreciate yet, 

the built-in assembler. Sysedt makes the stand- That is the extent to which this system has been 

ard program-editing environment a better place thought out. 
to work in^ especially if you are writing in assem- 
bler- There is a special editing mode for assembler The commands that havel>een added to BASIC 

Review by Chris Zamara sourcen and the edit command can be used to to aid in editing have been kept to a mercifully 

Aifirst glance, TSDS appears to be just a colleC' select source (S) or basic (B) editing. In the source small number; a system that requires you to 

tion ol standard utilities: an editor enhancement mode (the default), program lines are not to- memorize a hundred commands certainly can't 

utility a la BASIC aid, an assembler, a sprite ken ized or modified in any way as they are en- do much for productivity. There is one command 

editor, a character editor, and a sound effects tered, so you are not hampered by in here that is sadly lacking in many BASIC 

generator — the kind of thing to make a jaded BASIC-dictated restrictions when editing assem- enhancements, and it's my favourite; help. You 

programmer yawn. After using Ihe package for a bier files. Forexample, you are free to indent lines can get a list of all commands at any lime by just 

short while, however, it becomes obvious that the with any number of spaces for readability, and typing the magic word. Most of the other com- 

programs in TSDS are the product of a program- you can use question marks freely without having mands are equally intuitive. The familiar find, 

mer who has created high quality tools for his them show up as print when listed. Using the put change, renumber, auto and delete commands 

own use, and honed those tools to a keen edge. command, source programs are saved as standard are all here, but often with high-powered extra 

CBM-ASCllsequentialfileswiih no line numbers, capabilities you don't find elsewhere. For exam- 

The TSDS package consists of a manual and a like Commodore's assembler format. When re- pie, find and change let you search for a string 

single disk. The manual is 27 pages long and coil- Irieving files with the get command, line num- occurring at the beginning or end of a line, search 

bound- The software comprises several programs, bers are automatically added so that the file can for an exact match, search only outside of quotes, 

the main one being the edil or/ assembler .system be edited. This standard method of storing files and so on. All commands that use line numbers 

(sysedtandsysasm). Also on the disk are a sprite means that you can edit source code with your as parameters, including list, allow labels to be 

editor (sped), a sound effects editor (sed), a favorite text editor if you wish, and otherwise used instead. You could list a subroutine, for 

character/ matte editor (macsed), an unas- manipulate them as you would any CBM-ASCIl example, with the command list blov^up-. And 

sembler (unasm), and sample files for most of the text file. here's a good idea — any command preceded by 

programs, including assembler source code, an asterisk will direct its output to the current 

There are also BASIC programs to convert source Another prominent feature of sysedt is its printerdevice(normally 4) instead of the screen, 
files from MAE or PAL assembler format Into buill-inl54i fast load. On all loads and gets, the 

sysasm formal. fast-loader is invoked if a 1541 drive is being Users of the DOS wedge utility will find that 

used. Files are retrieved over three times faster TSDS .supports the single-character commands 

The manual is well written, though fairly brief, than with a regular load. The system is smart rhey are already familiar with: >. / and the rest. 

For TSDS's intended audience of programmers, enough to only attempt fast loading if a 1541 drive The exec command lets you execute sequential 

the brevity of Ihe manual is a blessing, since it is connected, but if your drive isn't up to the files as a series of commands, or turn SEQ files 

makes an excellent reference book. Generally, stresses of warp speed, you can turn off the fast into BASIC programs. When TSDS comes up after 

programmers don't want tutorials, they want lists load with the slow command. The fast-load capa- it is loaded, it execs a file called ute. This file 

and descriptions of functions. All functions are bility Is sure nice to have, but saves are still as contains some handy key definitions and displays 

clearly laid out in the table of contents and ex- slow as ever. them. You can edil this file to your own speclfica- 

plained in a concise paragraph. There are sepa- tions. 

ratesectionsforeachoftheprogramsinlheTSDS Sysedt redirects the reset and restore vectors, 

package, and bold type makes the important ref- which can be a real time saver. If you have a reset The key command is used to define a keystroke 

erence information stand out from the text. button, using it to get out of a crash doesn't mean to print out any siring of characters. Touching a 

losing your current source file or rebooting TSDS. single key can spit out a commonly-used com- 

Turning to the disk: aside from its actual con- You come back up with TSDS re-initialized, and mand, filename or editing operation. You can 

tent, an excellent feature right off the bat is that no with your border and background colour settings define any key, but some keys seem to start 

copy protection is used. That means that you can intact! Typing old will bring back any source you repeating as soon as you hold them down, requir- 

copy the programs onto your standard utility disk, may have been editing before you hit the panic ing a skilful quick tap on the key to use. A ralher 

saving you the hassle of always breaking out the button. If you were able to get out of your crash severe limitation is that you can only define up to 

special TSDS disk. It also means that you'll al- with a rgn-stop/restore. your colours won't be 15 keys, with a total of 255 characters for all keys, 

ways have a backup if something goes wrong, messed up either. Also, there is no way to program a key to execute 

TSDS loads quickly (it uses a fast-load), won't a BASIC or machine code routine. This feature^ 

bash your drive's head into a frenzy, and can be Excepting these features, sysedt is much like which is found in Brad Templeton's Power utility, 

used on drives other than a 1541. It also won't Power or BASIC aid in that it allows you to scroll would really help for setting up editing functions, 

wipeoutyour disk or print a message wishing you forward and backward through your program In short, the programmable key capabability ol 

ahorribledeathifitthinksyou'retryingtomakea using the cursor keys, adds some handy com- TSDS is a definite plus, hut it could go further, 

copy of it. Any unprotected program is much mands to BASIC, and allows you to redefine any cvsASM- Th A hi 

more useful than a protected one, so Piratebus- key to print a character string of your choice, " ^ **^o» ^"^ 

ter's decision to go this route is commendable. The TSDS Assembler is something between a 

And, as the name of Ihe company suggests, they The program scrolling feature is pretty slick, convenient to use but limited assembler, such as 

will thwart the software pirates by not giving them allowing you to position the cursor on any column PAU and a less convenient but full-blown finking 

any protection to break. The only thing they ask during the scroll, and letting you select the scroll assembler like the Amiga's, 

in return is that you pay for your copy of the speed. The scroll is designed to work nicely with 

program. Sounds like a fair deal to me. the special ItsI command, which doesn't print The assembler is invoked from sysedt with the 

breakor ready after The listed lines. After the list, assembie or asm connnand. You specify the 

Except [or the assembler, none of the other moving the cursor down will display further pro- source file and optional object file in the asm 

programs are integrated with the TSDS editor, gram lines with no breaks in the listing. The only command, then sysasm takes over. It is a full- 

and must be loaded and run separately. The core awkward part ofthe program scrolling is that once featured MOS-standard two-pass macro assem- 

of the package is the editor/ assembler; the rest of you scroll to the end of the program, you can't bier, and is quite fast |l compiled a 24 block source 
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file in about 13 seconds using an 8050. and 40 
seconds with a 1541). After compilation, you re- 
turn to the sysedt environment, with a listing of 
assembly errors as the current source file in Ihe 
editor. If you were working on something before 
the assembly thai you hadn't saved, too bad. This 
file handling scheme is quite a shock for program- 
mers raised on PAL, where a program is assem- 
bled direcily from BASIC lext space, the objecl 
goes to memory, and errors are printed as en- 
countered. For those programmers, rememtrer 
this when using sysasm: "Toto, I don't think 
we're in Kansas any more'\ 

Actually, assembling from a disk file has its 
advantages. The Jib pseudo-op lets you include 
another source file in the assembly, so a good 
approach for a long program is to build it in 
modules, using a main module that just strings all 
oi the other modules together with Jibs. In that 
case, you want to always assemble the main 
module, which probably won't be what you have 
in memory anyway. Just make sure that what is in 
memory is saved before you assemble. 

Sysasm can print the list of symtK)ls from the 
program, sorted numerically or alphabetically, or 
unsorted. There are quite a few pseudo-ops, rang- 
ing from standard ones such as those used for 
conditional assembly, to more unusual but useful 
ones for generating checksums and scrambling 
the object code. An interesting form of .byt is 
.pok, which converts ASCII characters to their 
screencode equivalents. Bin is like byt, but allows 
you to use a disk file to supply the byte values — 
great for including sprite definitions, music data 

and so on with object code. Additional pseudo- 
ops are included to make sysasm more compati- 
ble with PAL, though PALs ,bas, for example, is 
not supported. 

There is no linker included, so sysasm falls 
short of being a full-fiedged assembler. You can't 
make references to any labels that aren't included 
in your source file (with the Jib files added in). In 
this way, assembly is made simple, since linking 
is not required, but for large programs, an assem- 
bler with a linker might be better. However, 
sysasm is better than PAL for large programs, 
mostly because of the .lib command and macro 
capability- If you have PAL and prefer to use it for 
quick assemblies from memory, you can run it 
along with TSDS! That way you have the t)est of 
both worlds- 

As with sysedt, the assembler is full of though- 
ful features. For example, attempting to abort an 
assembly by pressing the stop key brings up a 
prompt asking if you want to quit or continue. 
This allows an elegant exit, closing all files prop- 
erly. A small point, perhaps, but it illustrates the 
care that seems to have gone into each part of the 
system. 

The Separate Programs 

Although separate, the sprite, sound and char- 
acter editors can all be used from within the 
sysedt environment. You can activate them with 
the up-arrow (load and run), and you can exit 
from them with the stop key, coming back into 
the undisturbed sysedt environment. Not com- 
plete integration, but it's better than having to 
reset and reboot TSDS, 



SPED: The Sprite Editor 

The sprite editor is menu -driven and supports 
features beyond just the creation of sprite defini- 
tions. Up to 255 sprites can be defined, with the 
current sprite page displayed for editing, and the 
sprite itself displayed below. Any sprite page can 
be defined, and switching from one page to an- 
other is instantaneous. The menu has options to 
animate sprites, change colours, fill pages with 
rotated versions of a sprite, combine two sprites, 
load and save sprite definitions, manipulate a 
sprite by moving, flipping and rotating, transfer 
sprite pages, and view 64 sprites at a time. Multi- 
colour sprites are also supported, and multicolour 
mode is automatically invoked when you switch 
to a multicolour sprite page. Up to six sprites can 
be combined in ttie sprite display using the over- 
lay feature, for images consisting of a combination 
of several sprites. 

This sprite editor can probably replace what- 
ever you're using now, and be easier to use, faster 
and more powerful. It is definitely a worthwhile 
program to have in your collection. The only 
thing that detracts from its ease of use is the fact 
that the menu lists the single-key options, but has 
no descriptions of their function. Executing a 
function is often a hi(^and-miss proposition. 
When you have hundreds of programs in your 
software library, and you use most of them only 
once every few months, you don't want to have to 
memorize anything for the next time. At least the 
control keys are listed on the menu — some 
programs don't even go that far. 

SED: The Sound Editor 

Bed brings up a screen full of cursor^operated 
slide controls that let you vary the SID chip's 
major parameters: attack, decay, sustain, release, 
frequency, waveform and pulse width. An enue- 
hpe foflower — another amplitude envelope — 
can also be shaped via slide controls to create a 
wide variety of effects. An intensify control, which 
varies the speed of the envelope follower, is also 
provided, and the number of times to repeat the 
effect {up to 15) can be selected as well. Up to 255 
such screens of effects can be defined, and they 
can be given names, which appear at the top of 
the screen. Effects can be loaded and saved as 
with the sprite editor. Loading is accomplished 
without having to type in a filename: all sed 
sound effects files on the disk are displayed, and 
the desired one is chosen with the cursor keys. 
(The sprite and character editors work in the same 
way.) 

A file of sample sound effects is included on the 
disk to show some possibilities. The variety of 
effects possible with just a few controls is quite 
amazing. Once you've saved your sound crea- 
tions, you can broadcast them from your own 
programs by using a source file included on the 
TSDS disk. By assembling the file using your 
sound data, you will create a machine language 
program that allows you to play any of your effects 
at wilt. 

Using this package must be the simplest way to 
create sound effects, since you basically just twid- 
dle knobs (actually, move sliders) until it sounds 
right, then make as many such effects as you 
desire. Not all features of the SID chip are utilized, 
though, and there is no polyphonic capability 



allowing you to combine sounds, so the more 
sophisticated SlD-manipulations are out, 

M ACSED: The Character Editor 

This is a unique program, but one for which 
there is a real need when designing character- 
based graphics screens. The program is actually a 
tight integration of a character editor and a 
pseudo-text editor that lets you put together char- 
acters in any pattern. Like the sound effects edi- 
tor, this one is easy to use even without the 
manual, after looking at the screen for a while to 
figure out what everything does. 

The *matie editor' portion of the program is 
much like a word processor, allowing you to iay 
out your custom characters to create a graphics 
screen. A cross reference of which characters map 
to which keys is maintained at the top of the 
screen to help you choose your characters. The 
display will scroll to the right up to 255 columns, 
depending on how you set the 'window size'. 
Within the current window, you can create any 
image that can be made up from the existing 
characters. This character matte can then be 
saved. 

From the matte editor you can select the char- 
acter editor. The character editor shows a group of 
64 characters, a character editing field, and the 
current character in the field displayed in all 16 
colours. You can pick any character in the field 
and edit it, and copy or transfer ranges of charac- 
ters. Multicolour character mode is also sup- 
ported; as usual, Kevin Pickell didn't miss a trick. 
Character sets can be saved independendy from 
mattes. It's easy to switch between editing charac- 
ters and mattes so that you can build a new 
character whenever you need it in the matte. 

While the need for this program is obviously 
quite limited, when you do want to create 
character-based graphics screens, it's invaluable. 
I had to write my own quick^n'dirly matte editor 
once, and the lime I would have saved by using 
this one instead would pay for a TSDS package. (If 
you want an attractive title screen for your pro- 
gram or you want to write a game, consider using 
macsed to create a character matte instead of 
going to hi-res. Character screens load faster, use 
less memory, and let you move things around 
faster and easier. You can also smooth-scroll text 
screens vertically or horizontally.) 

The TSDS System 

Taken as a whole, the TSDS package is a great 
bargain. Even if you just need a program develop- 
ment tool and have no use for the extra programs, 
the editor/ assembler alone is worth the price of 
the TSDS package. If you develop programs 
mostly in assembler, it may be worth considering 
switching over to TSDS from whatever youVe 
using now. BASIC aid may be cheaper (public 
domain). Power and PAL may have some advan- 
tages (instant subroutines. BASIC program debug- 
ging aids, more convenient assembling), and 
other packages may have a few more features, but 
the suitability of the sysedt environment for 
source code development and the overall good 
design of every part of the system make TSDS a 
very strong competitor. 
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TPJG CQMTflCTB 

TPUG omcE 

5300 Yonge street 
Toronto. Ontario 
M2M5R2 416-733-2933 

Membership Info: 

Regular Member (attends meetings) S35.00 Cdn. 
Student (full-time, attends meetings) £2 5. 00 Cdn, 
Associate (Canada) *25.00 Cdn. 

Associate (U.S.) $25.00 U.S. 

Associate (Overseas - sea mail) $35.00 U.S. 
Associate (Overseas - air mail) $45.00 U.S. 

TPUG BBS (416) 273-6300 



Board of Directors 1986/87 



President 
Vice-President 
Vice-President 
Secretary 



Meeting Coordinators 

C-64 Chapter 

COMAL 

Eastside Ctiapler 

Westside Chapter 

Bramplon Chapter 
68000 (nee SuperPET} 



VIC 20 

C128 

Amiga Chapter 

Librarians 

COMAL 

PET 

SuperPet 

V[C20 

Commodore 64 

CI 6-^05/4 

B-128 

Amiga 

Commodore 128 

MS/DOS 



AnneE.Gudz 

Meyer Toole 

Carl Epstein 

John Easton 

David Bradley 

Richard Bradley 

George Davis 

Mike Donegan (evgs,) 

Keith Falkner 

J. Allan Farquharson 

Gerry Gold 

Keith Falkner 
Gord Campbell 
Donald Dai ley 
Victor Gough 
Don Farrow 
Jim Hamilton 
John Easton 
Al Farquharson 
William Barrett 
Geriy Gold 
Avy Moise 

Anne E. Gudz (evgs.) 
George Skinner 
Mike Donegan (evgs,) 

Victor Gough 
Mike Donegan (evgs.) 
Bill Outfield 
Richard Best 
George Davis 
Paul Kreppenhofer 
Paul Aitchison 
Mike Donegan (evgs. 
Adam Herst 
Colin Juslason 
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TPUG Unciassifieds 

l>esperately seeking Administrator Software (8032/8050) by Professional 
Soltware Inc, Call collect Jim Shurter ('102) 399-8282. 

WantedL SuperPEts and 8050 disk drives. Call Scott (4 1 6) 625-0930 (Bus.) 

For Sale: 80% Computer, 8250 disk drive and miscellaneous software. Call 
Lynn (705) 748-4803. 

Wanted: people to phone free BBS. There will be a section in the Commo- 
dore section for reviews and software lists for the Commodore, but we need 
enough callers, so leave word to Stuart Fell and it will be set up. Call (204) 
687-8665. 24 hours per day. 




TPUG 

UBRARY 

DISKS 

10 months of the latest, 
fabulous public domain 
software only 

$70.95 
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Subscribe now to start 
receiving the TPUG disk of 
the month 
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TPUG Amiga Library Supplement 



ITVG AMIGA PIJBUC DmUM DISKS 

This public domain software Is mad? avalL^le To you, Ihe AMIGA 
ownw, by [he Toronto PET Users Group (TPUG), The disks were pul 
together by Fred Fish of California. 

Docijmenlalion breach disk is availabte in the README lislfile. 

We hope you enjoy these disks Happy Computing 

Mike Donegan - Amiga Librarian 
{^^6)639-0329 evenings 8-1 1 PM (Torrailo time) 



README-UvtAAA 

This is disk I d the Freely dislribulable AMIGA software library. 

amigademo Graphical benchtEurk lor comparing amigas. Author. 

Gary Girzon 
amigaterm Terminal emulation prc^ram with xmodem upload/ 

download capability Auihoi. Michael Mounier 
balls Simulation of the ' 'kinetic thingy' ' with balls on strings 

where only the end balls move (quick, can YOU come up 

with a beHer description?}. Anyway, cute, Aulhw. Perry 

Kivolowijz 
colorfal Shows ofl use of hold-and- modify mode. Posted to 

Usenet by Robert Pariseau. 
dhrystone Dhrysjone benchmark pro^Tam. Author: fieinhold 

WeJcker (Ada version). Rick Richardson (C version) 
dotty Source 10 the' doity window' demo on the Workbench 

disk. Posted to Usenet by Dale Luck, 
freedraw A small ' painl' ' type pr<^ram. Free drawing, boxes, 

filled boxea, etc. Author: Rick Ross 
gad ' 'Fun with Gadgets' '. Demonstration prt^cam for use of 

gadgets. Author: John Draper (Aka' crunch' ') 
gtxmem Graphical memory usage display pr<^ram. Watch your 

machines memory usage^ Cute and useful. Author: 

Louis Mamakos 
halfbrite Sample pr<^rani ihai demonstrates ' Extra-Half-Bnte' ' 

mode on latter AMIGA'S with new VLSI chip. Allows 64 

colors in low-res mode, rather than 32 Posted to usenpl 

by Robert Paiiseau. 
hello Demonstrates creation of a simple window, "hello 

world' ■ Posted to Usenet by Eric Lavitsky. 
latffp Shows how to access the Motorola Fast Floating Point 

library horn Lattice C Also demonstrates the tremen- 
dous speedup otitained Author' L^rry Hildenbrand 
palelte Sample pr<^ram for designing color palettes. Author. 

Charlie Heath 
Irackdisk Demonstrates use of the trackdisk driver. Useful exam- 
ple of ' raw' ' disk read/write. Author: Rob Peck 
requesters Sample pr<^ram and documentation lor building and 

using requesters. John worked REAL hard to dig out all 

the information in this one! Author: John Draper (aka 

■ 'cnjnch' ■] 
speech Sample speech demo program Strippeddownversionof 

' speech toy' '. Author: Rob Peck 
speechtoy Another speech demo prc^ram Cute You have to see 

this one. Be sure to click gadget that pops up the face 

Author. David Uicas 

README.IistAAB 

This is disk 2 of the freely distributable AMIGA software library. 



ff A very fast text formatter, controlled exclusively by command re^on 
line arguments. Author: Gary PeMman& hordes of students 

donh A h^ly portable kirlh implementation. Lots of goodies 
Author: Allan Pralt 

xlisp A nice little lisp imptemerttation. Compiles and links ok, but 
something in the Latfice C setjmp/tongjmp code prevents it 
Irom currently running. Might be easily fixed. Version 1.4. samplefont 
Author. David Bet2 

READMRlutAAD serial 

This is disk 4 of the freely distiiburable AMIGA software library. 

banner Prints horlzwital banner (across screen). From Decus C single Playfield 
distribution ofseveral years ago. Author: Unknown 

bgrep Another grep like utility, also using the Boyer-Moore al- 
gorithm Author: Roy MoEigiovi and Arnold fJobbins 

bison A replacement lor unix ' 'yacc' ' command This is Irom the speechloy 
GNU [GNU is Not Unix) effort, and was obtained from the 
Free Software Foundation Compiles and links (with some 
effort) but currently crashes the machine. Needs work, but speech.demo 
will probably be W4^h jE. Author: Bob Corb^ and Richaid 
Si all man 

bm A grep like utility using the Boyer-Moore algorithm. Author: 
Peter Bain 

grep Decus grep (Get Regular Expression and Print). Useful for lext.demo 
finding St nngs in files. Author' Unknown 

kermit This is an absolutely ancient kermit,who'sonly saving grace 
is that it is small and quite portable On the AMIGA, there is 
no connect mode, only send and receive. You must lc*( into 
the remote machine via one of it's local terminals and point 
it's kermit at the appropriate serial line connected to the timer 
AMIGA. Author: Unknown, but it is so hacked up it doesn't 
matter by now. 

MyCLl AnofherCUforthe AMIGA Author. HikeSchwartz 

mandel A Mandelbrot set program. Author: Robert French, with trackdJsk 
additions by RJ Mical 



READfrtE-iUtAAE 

This is disk 5 of the freely distributable AMIGA software library It 
roniains many of the prc^rams, written by Commodore- Amiga 
people, that were included In disk number 1 However, they have 
been cleaned up so that they compile cleanly on the AMIGA, return 
resources allocated, etc. 



Demonstrates how a drawing area can be sp\\\ into 
linked rectangular regions Draws a rectangle in a 
single playfield display, then draws "Behmd a 
Fence' ' several times behind an aj^rent fence iii the 
rectangle. Only works under Lattice Ver3,03. Author: 
Rob Peck 12/1/85 

A sample font that produces clubs, hearts, spaces, and 
djamondsasilsfourcharacters. Shows precisely what 
is contained m an Amiga EonI Author. Unknown 
Demonstrates access to the serial port. Requires an 
external tefmlnal connected to the serial port Au- 
thor. Unknown 

Createsanddisplaysa320by 200 by 2bit plane single 
playfleld display. Completely covers Intuition's dis- 
play, tHit gives the system back at exit Author Rob 
Peck 12/1/85 

Latest and greatest version ol Dave's cute speech 
demo pr<^ram. Comes with custom icon so can be 
run from a workbench screen Author' Dave Lucas 
A much simplified version of speechtoy Also in- 
cludes exec support functions for extended 10 re- 
quests, CreateExtlOO to allocate and Initiative a new 
10 request block and DeleteExtJOQ to free an ex- 
tended fO request block. Author. Rob Peck 12/1/85 
Sample program that asks AvailFonlsO to make a llsl 
of the fonts that are available, then opens a window 
and then prints a description of the various attributes 
that can be applied to the fonts, in the font itself. 
Previous versions were released as ' whichlont " 
Author: Rob Peck 12/I/S5 
Simple timer example program. Includes dynamic 
allocation of data structures needed to communicate 
with the timer device, as well as the actual devk:elO. 
Author Rob Peck 12/1/85 
Demonstrates used trackdisk driver Useful example 
d "raw "disk read/write. Author RobPeck 32/1/85 

SEADME.IiBtAAF 



cons 
freemap 

input ,dev 



alib 
cc 

dbug 



make 

make2 
microemacs 

portar 



xrf 



Object rr>odule librarian Author' Mike Schwartz 
Unix-like ffontend for Lattice C compllet. Author: Fred 
Fish 

Macro based C debugging package. Machine mdepen- 
dent. Provides function trace, selective printing of inter- 
nal slate information, and more Author Fred Fish 
Subset of ' 'unix' ' make command Useful, but doe^ not 
have many of the features of the hjll make, much less 
the newer ' augmented make' ' Author Undon Dyer 
Another make subset command. Author Marc Mengel 
Small, relatively portable version of emacs. Has key- 
board macros. No extension language Author: Dave 
Conroy 

Portable archlver Used to bundle text file up Into a 
single file for transmission a? a unit, or otherwise han- 
dling as a single file ' Portable' ' because the code itself 
is portable and because the archive formal is very 
simple {uses ascii headers to separate files) From Decus 
C distribution Author: Martin Mlnow 
C cross reference utility. Originally fn^m Decus C distri- 
bution Author' Bob Denny 



joystick 

keyboard 
layers 



mandelbn^t 



mouse 



one. window 

parallel 
printer 



README-IUtAAC 

This is disk 3 of the freely distributable AMIGA software library. 

gothic Gothic banner printer Prints DOWN the page, rather than 
across, so arbitrarily long banners can be created. Send EOF 
^CTRL-\) to end inpjt. From a Decus C distribution several 
years a^. Author unknown 

A ' roff ' type text formatter, roughly following ' Software 
Tools' ' version. Somewhat upwanJly compatible with unix 
"nrofT ' command. Author Ken Yap 



print support 
proctest 



roff 



Console device demo prtkgram with supporting macro 
routines. Author. Rob Peck 12/1/85 
Createsavisualdiagramof free memory. Comes with 
custom Icon so can be run from workbench screen. 
Author. Robert J Mlcal 

In combination wiih h a nder. interface. asm [supplied), 
lets a user trap keyboard or mouse events before they 
gel to Intuition and if desired, in^all new (phony/ 
generated/othe r-devices-mouse-si mulations) in to 
the input stream. Handler. in lerface.asm is needed to 
convert the calling sequence performed by the input- 
.task for the inpul stream manat;emenl into some- 
thing that a C pn^ram can understand. Author: Rc^ 
Peck 12/1/85 

Shows how lo set up the gameporl device as a 
joystick. Reports parameters received from joystick 
hooked to right port. Author: Rob Peck 12/1/85 
Sample program to demonstrate direct communica- 
tions with the keylxard Author Rob Peck 12/1/85 
Shows use of the layers library, used by Intuition to 
create windows (layers handles all overlapping draw- 
ing areas and keeps things straight, sending to the 
back, bringing to the front, making larger/smaller, 
etc.) Author Rob Peck 12/1/85 
Latest and greatest mandelbrof pri^rara. New fea- 
tures include the ability to save images in '^ifT' 
format, for reading into Deluxe Paint or other pro- 
grams that use iff. Also includes code from Graphl- 
Craft to handle color palette and change colors at will. 
Many additions by R} Mical. Author: Robert French 
Shows how to set up thegameport device as a mouse 
so that hooking up the mouse to the right port gives 
access to mouse Ltiformallon. Author. Rob Peck 12/ 
1/85 

Produces a window with a console attached. Does 
graphics in the top half and limits i he console activity 
to the lower hall. Author: Rob Peck 12/38/85 
DemonslralesaccesstotheparaJlelporl. Author: To:n 
Pohorsky 12/1/85 

Shows how to open and use a printer, does a screen 
dump of the worktiench screen ifthere is a graphics- 
capable printer attached. Currently does noi compile 
under Lattice C Ver3.02 and does not link under 
UtticeCVer3.03. Author. Rob Peck 12/1/85 
Printer support routines. Currently won't compile, 
missing a header l^le' 'local.h' ' Author unknown 
Sample code to ere ate a process, set up message ports, 
pa^ messages, etc Sample slave code for create 
process test {littleprocclcurrendy does not link under 
either Lattice C 3 02 or 3 03{unresolved global varia- 
bles not in libraries) Author Rob Peck 1/^1/86 



This is disk 6 of the fredy distributable AMIGA software library. 

compress Compress reduces the size of the named files using 
adaptive Lempel-Ziv coding. The amount of compres- 
sion obtained depends on the ^ize of the input, the 
num!>er of bits per code, and the distribution of common 
substrings.Typically, text such as source code or English 
Is reduced by 50-60%. Compression Is generally much 
better then that achieved by Huffman coding (as used m 
' pack' ') or adaptive Huffman coding(as used in ' com- 
pact' '), and lakes less lime to compute. Great for saving 
disk space, or reducing transmission time over phone 
lines! Also includes ' bloa' and ' alob' ' for converting 
binary files lo ascii, and then back to binary (for trans- 
mission over links that do not support 8 bits) Author 
Thomas Spencer, with improvements by others 

dadc A digital computer impersonating an analog clock im- 

personating a digital clock. Author' Perry S. Kivolowjtz 

microemacs An upgraded version of mlcroemacs originally distrib- 
uted on disk number 2. I don't have an exact hsi of 
changes but the new executable is about 2S% larger, so 
there must be something in there! One enhancement is 
that some lunclions are now also bound lo fiinclion 
keys. Author Dave Conroy, with enhancements t>y Jack 
Roose. 

mult Mull reads the inpul comparing adjacent lines. In the 

normal case, the second and succeeding copies of re- 
peated lines are output, and the remainder of the lines 
are removed Repeated lines must be adjacent In ortler 
to be found Options are present to ouipul the first of 
multiple lines, for comparing adjacent lines by held 
only, and for sfieclfying the field separator character. 
Kind of the opposite of the Unix 'uniq" prt^ram 
Author: Dennis Bednar 

scales Demonstrates use of the Audio functions in the ROM to 

produce four voice sound It uses a simple waveform 
(sawtooth) wiih no amplitude control (ie. envelope) or 
frequency variation (ie, vibrato), but these can be easily 
implemented Also includes considerable documenta- 
tion on audio device. Author Steven A Bennett 

setparallel Allows the CLI user to dynamically change any particu- 
lar parallel port parameter. Author; Keith Stobie and 
Tom Pohorsky 

setserial Allows the CLI user lo dynamically change any palicu- 
lar serial port parameter. Author: Keith Stobie and Tom 
Pohorsky 

sortc A quicksort based sort prc^ram, using separate driver 

and sort modules Originalty from a DECUS C dislnbu- 
lion Claims to be fast, but when operating entirely out 
of ram takes 93 seconds to sort its input tile, sort c, while 
AmigaDos's sort takes onlv A^ seconds under the same 
conditions. Author. Dave Conroy, Martin Mlnow, and 
Ray Van Tassle 

stripe Strips comments and extraneous whitespace from C 

source files Usehil for compacting the C header files to 
increase usable disk space. Author. Chris Metcalf 
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README.IblAAG 

This )S di^k 7 d Xhe Ireely dislnbulable AMIGA software libraiy. This 
dt^ conEdins a poit (execulabtes only) of Ihe popular UNIX game 
' llack' ', courtesy ol John Toebes. 120 H NorfhingTon PI. Caiy NC 
27511. ThL5 IS VersionlO.3. 

RFArMEIistAAH 

This is disk S of [he freely disTTJbuiable AMIGA software library II 
conlaJEts the source lo ' 'Hack' '. a popular UNIX game ported to Ihe 
AMIGA by John Toebes. Ptea&e read all The a$»cial«1 README filea 
befoce redlstnbulJELg with changes 

RKADMEIlAtAA] 

'Hi is is disk 3 of the freely distributable AMIGA software library. 

mdre Draws tnolre pari«rn; in bFack and whrle rn a border- 

less backdrop window Currently only runs with Lallice 
C version 3.02, when compiled wi^h 3.03 crashes the 
syslem Author Scott Bai la ntvne 

MVP'FORTH Mountain View Press Forth, version 1 00.03A A share- 
ware version of lorth from Fantasia SysLems. Runable 
fn>m Ihe workbench, comes wirh icons and such. If you 
use Ihis, you should send a contribution lo Faniasia 
Systems / Mouniain View Press. 

proff Another lex! lormatlmg program. Thii one is sigEiifi- 

canlly more powerful than any of I he others previously 
disEnbuled on these disks. 

seilace Program to to^le mietlace mode on and off. When 

used with a black background, and amber or green 
characters, produces a nice CU environment Aulhor 
BobPanseau. Nov 85 

skewb Not quite sure what this is supposed to be, ii was 

downloaded from abbs with no documentation. Cmon 
talks, at least pul a three line description at Ihe slarl ot 
youT programs^ Author Raymond S. Brand 

sparks Graphics demo that draws a moving pathway '. add- 

ing to rhefront and removing from the tail (sure is hard 
10 come Lip with verbal descriptions of these things!} 
Author. Scott Ballaniyne 

README.UfltAAJ 

This is disk 10 oE the Ireely distributable AMIGA software library, 

ftHiquesT You conlrof an inlersldlar empire, decide which star sys- 
tems to explore, which planets lo colonize, etc The com- 
puter will also be building its own empire and competing 
with you for resources The one with the greatest popula- 
tion at the end wms. Executable only, no source. 
Downloaded from Denver BBS, Author. Unknown, ported 
lo AmiL^a bv Rob Shimt» 

dehei Simple little program lo convert hex formal file into a 
binary file Reads lines of hex characters on stdin and 
writes 8 bit dehex'd bytes to stdout. Author: Fred Fish 

filezap Patch program for any type of file Executable only^ no 
source available. Author' John hlodgson 

fixobj Strip extraneous garbage off end of ob|ect files transfered 
with K mod em. Doei not require preknowledge of actual file 
]er^h» uses knowledge of Amiga hie structure Author: 
John Hodgson 

iff Routines to read and write iff format files. Includes prc^ram 

to disj^ay iff files made by DPaint. Also see the DPSIide 
program on disk 1 1 Author Jerry Morrison, Steve Shaw, 
and Steve Hayes 

Id I presume this stands for ' tist directory' ' Lists contents of 

specified direlory ordisk,usins inverse video and colors to 
group objects by type Author: Dave Haynie 

Is Minimal implementation of UNIX Is Demonstrates use of 

UNIX style filename pattern matching code Author Rick 
Schaeffer 

sq,usq Squeeze and unsqueeze, fR>m the CPM world Works, but 
■ corn press" from disk 6 runs almost twice as fast and 
tHOduces even smaller Files Author: R Greenlaw, Amiga 
port by Rick Schaeffer 

trek73 A Star Trek game. This one is |ust crying out lo be Ami- 
gaized by some ambitious hacker. Authors: Many, see 
comment m main.c 

yachic Dice game. Author: Sheidc^ i^emon 



README. lislAAK 

This is disk 1 1 d the 1r««ly distributable AMIGA software library. This 
is a picture disk. 

READPriE-liitAAL 

Thisisdisk 12 ofthe freely distributable AMIGA softwarelibrary Note 
that this disk contains a number of programs apparently available 
cMily in executable form. I am not real happy with this trend, but had 
no way ol getting in contact wiih the authors who posted these 
programs lo various BBSs to request source I have no reason to 
believe that any of Ihese execulable only postings contain any 
deliberate ' mi^fealures' '. but you s^KiukJ always use such pr<^aEns 
cautiously. 



amigaSd Showsaro4aiing3diinensionalsolk1 "Amiga sign' '. No 
source available, executable only (downloaded from a 
Denver BBS) Author. Barry (barl) Whitebook of C-A 

ArgoTerm Yet another terminal emulator prc^ram However, this 
one is wntten in nucro assembler, so should be o4 
interest to anyone doing serious assembly language 
development Version D 20 Author: Jez San 
Shows a rotating 3 dimensional wire frame arrow. No 
source availat^e, executable only (downloaded from a 
Denver BBS) Author: Sieve Beats of C-A 
Another directory listing program using sraiie graphka 
Style output Execuiabie only, no source available 
(IJownloaded from a Denver BBS) Author: unknown 
These (wo lools allow execution of a program from a 
SelWindow icon without having to recmnpile Ihe pro- 
gram. Author: John Toebes VIII 
Miscellaneous DPaint and digitized piciurH, in iff for- 
mal Some are rated R 

Merge Ihe images from two icons to produce one icon 
with a primary image, and a possibly completely differ- 
ent image to display when selected. Author: John 
Toebes VIII 

SiarTerm Another terminal en^ulator program. ASCII and XMO- 
DEM support, telephone dialer, function keys, load tile 
stripping, text file conversion, full /hall duplex. Author: 
Jim Nangano and Steve Plegge 

README-IUtAAM 

This is disk 13 of the freely disfribulable AMIGA sotlware library. 
II is a grab bag of basic programs, mostly untested. No speekee basjc 
so it these don^l work, call^meoneels^. 

R£ADM£.U»tAArf 



arrowSd 

\d4 

IconExec 

images 
SetAItemate 



This is disk H of the freely distribulable AMIGA software library. It 

contains the lirst ever public release of two new pjeces of code, "dex" En^ -Fred 

and ' 'lermcap' '. Also, this is the first disk in Ihe library that includes 

executabtes produced wiih both rlie Manx and Lattice C compilers, 

whenever possible This greatly helps to isolate bugs. 



top of the screen). Author: Caibntne Wagner (posted 

by Barry Whitebook) 
Monopoly A re^ly nice monopoly game written in AbasiC. 

Follow the directions in the file ' 'InstallalionGuide' ' 

10 produce a bootable games disk. Author: David 

Addison 
OkidataDump Okidala MI52 driver and WorkBench screen dump 

prt^ram [)oes both aipha and graphics. Untested (J 

don't have the printer) Author: Raimund Gluecker 
Polydraw A drawing program written in AbasiC, Author: David 

Addison 
Polyfraclals A fractal prt^am written in AbasiC Author: David 

Addison 

READMTLllBtAAP 

This IS disk iGofIhe freely disIribulableAMICA software library, kisa 
copy of Ihe Amiga tJeveloper's IFF disk^ received directly from 
Commodore-Amiga sources, with permission to pLace in [he library 
and redistribute ll is unclianged except for 

t)Thevdume name hasbeenchangedtoAmigaLbDJskl6. 

2) This file(README.Iistlfi) has been added 

3) The standard hbrary README file READMEdisf has been added 

Enjoy -Fred 

REAIMHEJIrtAAP 

This is disk 16 of the freely distributable AMIGA software library. This 
is a copy of Ihe Amiga Developers IFF disk, received directly from 
Commodore-Amiga sources, with permission to place in the library 
and redistribute. It is unchanged except for: 

])The volume name has been changed to AmigaUbDiskl6. 

2) This file (READ ME. list 16) has been added. 

3) The standard library README We README dist has been added 



READMEJbtAAQ 



amigaSd Shows a rotating 3 dimensional solid ' AMIGA' ' sign 
This is an updated version of Ihe prc^ram released on 
disk number 12, and now includes full source. Author 
Barry Whitebook @ Commodore- Amiga 

beep Source for a function that generates a beep sound, like 

CTRL-G on a VTl 00 terminal. Author: Samuel Dicker @ 
Commodore-Amiga 

d^x Program to extract documentation in a human r^adabl? 

format inside sourcefiles, and produce nroflsfyk output 
for manuals and other such external documents. First 
ever public release. Author. Fred Fish 

dimensions Programs to demonstrate three and four dimensional 
gr^hics. Not quite sure how else lo describe them! 
Author. Anselm Hook 

tilezap An updaledversionoflhe file zap utility first released on 
disk number 10. Can be used to patch any type of file, 
Nice, and VERV useful. Author. John Hodgson 

gbLrnem An updated version of the graphical memory display 
prc^ram first released on disk numt>er 1 Watch your 
machine's memory iisage change dynamically under 
use! Author: Louis Mamakos 

gi Converts DPaint br\ish files toC source files' necessary 

lo create an Image sCrodure, including height, width, 
depth, and color information, as well as Ihe array of data 
which represents Ihe bit planes of the image' '. Author: 
Mike Farren 

pdTerm A simple terminal emulator that does ANSI or DEC VT- 
100 emulation in 30 cols by 25 lines. Version 121, 
Author: Michael Mclnerny 

shell A Simple csh style shell with history and some other 

goodies. Still needs some polishing and enhancement, 
but is quite nice as it. Thanks Matllf! We've really needed 
somethi ng like this for a long time. Now if yc^wouLd just 
do a ksh version insteiad. Author' Matt Dillon 

termc^p A [mostly) unix compatible implementation of a termcap 
library. First ever public release. Author Fred Fish 

REA[^E,listAAO 

This is disk 15 of the freely distributable AMIGA software library. 
Whenever possible, both Lattice C and Manx C executabtes are 
provided. The lattice exeoitables have the extension ' lattice' and 
the Manx executabtes have the extension ' '.manx' \ This greatly 
helps to isolate bugs. 



Blobs 

Clock 

Dazzle 
Fish 



A simple graphics program, reminiscent of Ihe unix 
' worms' ' program, but in coIot of course. Author: 
Peter Engelbrite 

A simple digital clock program designed to be small 
and to live completely in the screen title bar, where it 
is out of the way. Author: Mike Meyer 
An eight-fold symmetry dazzler pr<^ram. Really 
pretty! Author; Peter Engelbrite 
"A demo pr<^ram which runs an AnimOb in a 
double buffered screen with sequence fyded anima- 
tion' ' (Basically shows a fish' swimming" across the 



This is disk 17 ofthefreelydistribuiableAMIGAsdiware library. This 
is a copy of a HAM. (Hold And Modify) graphics demo disk received 
from a vendor that is producing hardware to capture such im^(es. and 
software lo process Ihern. It is unchanged except for: 

1] The volume name has been changed to AmigaLibDiskIT 

2) This fileiREADME.IistlT) has been added. 

3] The standard library README file README.dist has been added, 

4} The 'showiJbm^ program has l^een added to allow viewing of the 

two monochrome pictures (dozer.hires and rotiert. lores) without 

requiring Deluxe Paint. 
5) The supplied 'readme' file has been augmented with information 

received on hardcopy along with the disk, and a note has been 

added nboai how lo us« the showilbm program. 

Enjoy -Fred 

READMEJiilAAR 

This is disk 18 of the freely distributable AMIGA software library. 

AmigaDisptay Yet another variation of a terminal emulator prc^iram. 
This is a modihed AmigaTerm that can emulate a 
dumb terminal (interesting paradox here some- 
where. . ,). translate line termination sequences, op- 
tionally capture or discard control characters in the 
captured file, use audible bell, use another font, etc. 
Author: Don Woods (Original code by Michael 
Mounier) 

Ash Prerelease version of a C-shell like shell pr<^ram. Has 

history, command substitution, loops, etc. Author 
Thorn Smith 

Browser A prt^ram that lets you wander abound a file tree and 

peek into files, all with the mouse. Author. Mike (HI 
be mdlow when I'm dead) Meyer 

MC63010 Com^^ete information package br upgrading an 
Amiga to use an MC&SOlO in place of the MCGBDOO. 
Includes a software fix that makes this transparent to 
user programs that use instructions that are 
priviledgedonthe&8030. Author: Thad Roryan 

Multidim l^s you rotate a 2 to € dimensional ' cube' ' on the 
screen using Ihe joystick Author: Robert French 

PigLatin Tired d the 'say ' command? This one will translate 

and speak your input in pig latin! Author. Thomas 
Clement 

Schmper Short Iw ' 'SCReen IMage PrintEB' ' A screen dump 

utility which can be run from the workbench or the 
Cli. Author: Perry Kivolowitz 

Xlispl.6 Avery nice little lisp for those that want to study the 

internals o! a real, working lisp interpretef. Author: 
DaveBetz 

READMLlirtAAS 

This is disk 19 of the freely distributable AMIGA software library. 

^ackJack A line oriented (no graphics) blackjack game. Author: 

Unknown 
JayMJnerSlides These are the Amiga slides produced/used by Jay 
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DiskSalv 



Hash 



Hd 



Miner (The (Jesigner of Amiga's cuslcHn graphics 

chips) in his lalks aboul The Amiga They are all hi- 
' res |64D x 400) and a^E t«st displayed on a long- 

poRlsience color monitor. 
Keymap_Tesl A pr<^ram lo lesl Ihe keymapping rouiines and find 

possible bugs. Useful as an example of keymapping. 

Aufhor Pushpa Kumar 
LockMoEi Fmd file locb. Useful for discovering \i programs 

propeHy clean up afler Ihemselves Auihor Dewi 

Williams 

This is disk 20 of I he freely dLSfributable AMIGA software llbEary. 

AmigaToAiarl Source code for an Amiga lo Alan ST <kr\ec( code 
format coiivertei. Takes Amiga objects as input and 
produces Afan objects as oulpul. This allows Ihe 
Amiga to be used as a cross developmeni machine 
provldmg Ihe proper libraries are available. (Cur- 
renllv does nol work, but I don'l have an ST lo try ll 
with anyway. . ) Author London Dyeral Atari Corp. 
Pribram to recover liles from a trashed AmigaDOS 
disk. Can also ' 'undelete' ' liles deleted by rnistake, 
so long as Ihey have not overwritten by further disk 
activity Requires two disk drives. VERY usetuL . . 
Author. Dave Haynie 

Small example pri^ram that computes the Ar:niga- 
DOS directoiy hash function. Author. Neil Kaiin at 
Com modo re- Amiga 

Hex dump utility using some ideas from Mike Hig- 
gin's article in Computer Language magazine, Apr 
86. Formats Ihe dump based on the natural byte 
ordenng of the machine on which it runs. AuEhoi. 
David Elins at NEC Informaiion Sysiems 
Some mandelbrot ima^s submitted for Ihe " man- 
deibrol images contest' ' some months ago Only 
three people submitted mandelbrois and these were 
among ihe most interesting 

Tutorial and example program for m ult LI asking al the 
Ejlcc level. Author; Leo L. Schwab 
Prt>gram to strip extraneous whilespace from C pro- 
grams or header files Can be used to condense the C 
compiler header files to free up disk space Author: 
Jefl Dickson 

A sample Port-Handler program that performs the 
functions of the standard Port-Handler Shows what 
the BCPL environment looks like from rhe handler 
point of view. Author' John Toebus VIN 
Random number generator in assembly. Much faster 
than versions usmg Hoating point. Can be used by 
either assembly or C programs Author. Steve Beats 
at Commodore- Amiga 

Prtjgram to set the mouse port to either Ihe left port or 
right port. Author' Robert Burns at Commodore- 
Amiga 

Terminal emulator that can ^leak the received text. 
Also has XMODEM file transfer Author: Leflheris 
Koutsofios 

Demo version of an editor that ha.s since been re- 
named as TXed (I believe)^ Author. Charles heath at 
MicroSmilbs 



Unix V7, BSD A.2. Amiga, MS-DOS, and VMS. Enhance- 
ments include ov^vrire mode, support for Amiga functkm 
keys, reverse video status )ine. numeric arguments using 
<ESCXnumber>, replace, buffer specific editing modes, 
word wrap mode, gotoMne, buffer rename, insert-file, exe- 
cute named command, describe birtdings, startup files, and 
more Author: Dave Conroy. enhancements by Daniel Law- 
rence 
Pemacs Microemacs as enhanced by Andy Po^io. New features 
include use of <ALT> keys as Ueta keys» default buffers on 
buffer switch, mouse support, higher fmohty to impn>ve 
interactive response, crealkin of backup files, paragraph Fill. 
word wrap, query replace, and support iot function keys. 
Author: Dave Conrc^, enhaitcnnents by Daniel Lawrence 

READMEllbtAAW 

This is disk 23 (^ the freely distributable AMIGA software library. It 
contains a significantly en ha need version of microemacs based on the 
version 30 release posted to useneif's mod sources newsgroup. 

Previous versions of microemacs released on these di^s derived 
from a very old verwon of microemacs. Since that dd release, the 
author has cleaned up lots of loose ends and restructured mafor parts 
of the code Other people have already added support br lermcap, 
ports to other machines and operating systems, and a limited GNU 
emacs compatibility option 

BecauserecJpientsoflhisdiskmigtitwish tonin thisnewmicroemacs 
on other machines In addition to the Amiga, I have encluded all 
sources that were available lo meat the timeol release. The subdirec- 
tories which give alternate imi^ernentations are: 



MandelBrots 



MultiTasking 
Pack 



PortHandler 



SysA'ms 

Sys/Atari 

^/Msdos 

5ys/Cpm86 

Sys/Amiga 

Sys/Uhtix 

Sys/SysV 

fty^Atari 

Tty/ 731X1 

Tly/ Intuit ion 

Tty/Termcap 

Tty/Ansi 

Tiy/Amigados 

Tty/Heafh 



System modules for VAX VMS 

System modules for Atari ST 

System modules for MSDOS 

System modules for Cpm 

System modules for Amiga 

System modules for Ulfrix/BSD'1,2 

System modules for Uniji System V 

Terminal driver br Atari ST 

Terminal driver for ATST Unix PC (7300) 

Terminaldrivertor Amiga u^ng Intuition 

Terminal driver using termcap la Unix 

Terminal driver using Ansi codes 

Terminal driver for Amiga u^ng just Amigados 

Terminal driver for a Heaih terminal 



fiandom 



5eiMouse2 



SpeechTemi 



Ted 



README-IIMAAU 

Thisis disk 21 of the freely distributable AMIGA software library. This 
is a copy o( Thomas Wilcox's Mandelbrot Set Explorer disk, li is 
unchanged except for: 

I) The volume name has been changed to AmigaLibDisk21. 

2)Thisfi1e(READI^Etist21) has been added. 

3) The siajidard library README file README disi has been added. 

To run from CLf: 

1) cd diX: (where X is drive containing disk) 
2)mse 

To run from Worktench: 

l)ClickonMSDicon. 

It contains extensive on-line help information, unlike other Man- 
delbrot programs distributed in this library It also is capable of 
displaying some very pretty hi-res pictures in interlace mode. 



There currently is a major effbri underway on Usenet, led by Dave 

Blower, tc Standardize mkroetnacs and bring the many variations 

under one common implemenlatiQn. Please send any enhancements 
to rtechldaveb, or send them to me and I will see that he gets them. 



R£ADME:ii»tAAX 

This IS disk 2A of the freely distributable AMIGA software library. 

Conquest Vou control an interstellar empire, decide which star sys- 
tems to explore, which planets to colonize, etc The com- 
puter will also be building its own empire and compefmg 
with you lor resourees. The one with the greatest popula- 
tion at Ihe end wins. First distributed in executable form 
only on disk number 10. This distribution includes source. 
Author Unknown, poried to Amiga by Rob Shimbo 

Csh Second release of a csb-like alternative to the CU. first 

released on disk numl>er 14. Has alias, builtin hjndions 
like ' 'dir' ^ for speed, history, named vari^les, command 
re-ejtecution with substitution, etc. Author. Matt Dillon 

ModuLa-2 A pre-release version of the single pass Uaduia-2 com- 
piler onginally developed for Macintosh at ETHZ This 
code was transmitted to the AMICJA and is executed on the 
AMIGA usmg a special loader. Binary only. 



README,llstAAY 



Very useful to provide finer control over your multitasking 
envireinment. Author Dewi Wilhains 
Archx Yet moreprogramsfor bundling up text tiles 3nd mailing or 
poking then) as a ^ngte file unjt. Author Martin Mi now 

READMEUstABA 

This is disk 27 of the freely distributable AMIGA software library, 

ABdemos Amiga Basic demos, NewConvertFD creates .tenaps 

Irom fdhles. BitPlanes finds addresses of and writes 
lo bitplanes ol the screen's bitmap. AboutBmaps is a 
luiorial on creatk>n and use of bmaps. LoadlL^I 
loads and displays IFF ILBM pics LoadACBM loads 
and displays ACBM px:s. Screen Pnnt creates a dpmo 
screen and dumps it io a graphic printer. Author 
Carolyn Scheppner, Comrnodwe-Amiga 

Disa^sem A simple 68000 disassembler. Reads siandanJ 

Amiga object files and disassembles the code sec- 
lions. Data sections are dumped in hex. The actual 
disassember routines are set up to be callable from a 
user program so instructions in memory can be 
disassembled dynamically. Author: Bill Refers, 
Univ of WAlKATOfNpw Zealand) 

DvoraTiKeymap Example of a keymap stnjdure for The Dvorak 
keyboard layout. Untested but included because 
assembly examples are lew and far between. Au- 
thor Robert Burns ^Commodore-Amiga 
An electronic Spirograph inspired by an article in 
Feb "M Byte. Authcs: Terry Gintz 
A demo pmgram which iliusit^es ihe use of propor- 
tional gadgets lo scroll around in a superbiimap 
window Posted to Usenet by Barry Whilebook @ 
Commodore- Amiga 

MemExpansion Schematics and directions for building your own 
homebrew 1 Mb memory expansion. Author: Mi- 
chael Fellmger 

SafeMdIfoc Ever have a program Ihat corrupts it'sown memory? 
Well, this littJe gem can helpyouhnd the problem in 
a huny. Acts as an interiace between yourprf^ram 
and the real malloc, checking for overrun, under- 
run, and duplicate fredng of mailoc'd space. Author. 
B)orn Benson, modifications by Fred Fish 

ScienceDemos Some science demos. Sidereal is a tutorial prt^ram 
which introduces the user to the relationships be- 
tween Julian and calendar dales and solar and 
sidereal times. J2000 is a utility prc^ram which 
converts stellar positions, proper motion, parallax 
and radial velocity h^m the standard epoch B19$0 
(FK4j to epoch J2IXI0 (FK5j. Galilean is a tutorial 
program which determines the position erf the Gali- 
lean satellites relative to Jupiter. Programs courtesy 
d David E^le at Science Software. 

README.DfltABB 

Thl5isdisk28of the freely distributable AMIGA software library. 



Hypocycloids 
Lines[)emo 



Backgammon 
Cpp 



Cribbage 
Milestone 
Othello 
^ar 



This is disk 25 of the freely distributable AM I(jA software library. This SuperBliMap 

disk contains a port (executables only) of the popular UNIX game 

' Hack' ', courtesy of John Toebes. 120 H Northington PI, Gary NC, 

27511. This is Version 1.0. IE,, with graphics enhancements for the 

Amiga 

KEMMEMMAM 



Another game in Al^asiC by the author of Monopdy 

Author: David Addison 

This is a coj^ of Ihe Decus cpp, poried to the Amiga. 

This cpp is more powerful and complete than either of 

the buik in cpp's in Manx or lattice C. Also induded is 

a modified version of the Unix like cc frontend, for 

Manit C, that knows about the cpp. Author: cpp by 

Martin Minow; cc by Fred Fish 

Another game in AttasiC by the author of Monqx)jy. 

Author: David Addison 

Another game in AbasiC by Ihe author of Monqx^y. 

Author: David Addison 

Another game in AbasiC by the author of Monc^y. 

Author: David Addison 

A program which can pack and unpack archives 

compatible with Ifie Unix ' 'shar* ' (shell archiver) 

program. Author: Dave Wecker 

An example program that shows how to use 

Scrollljyer, how to sync the SuperBitMap prior to 

printings and how to create a dummy rastport for 

dumping the SuperBitMap, Works under 1.2 and up. 

Author' (!^rolyn Scheppner and Phil Undsay 

READIhlE.U«tABC 



This is disk 26 of the freely dislributable AMJGA software library. This is disk 29 of the freely distributable AMIGA software library. 



En)oy -Fred 



READM£.listAAV 



Thisis disk 22 of the freely distributable AMIGA software library. This 
disk contains two new ' strains' ' of microemacs, both derived from 
early releases of Dave Conroy's microemacs. There is currently an 
attempt on Usenet, lead by Dave Brower, to coordinate an effort to 
merge features ^rom ihe different versions into a single supported 
microemacs In Ihe meantime^ perhaps you can find a leature you 
need in one ol these, . . 

I,emacs Microemacs version 3.6 as enhanced and supported by 
Daniel Lawrence. This version works and has t>een tested on 



Unflunk Tool lo process Ihe Amiga' hunk' ' loadf lie format. Collects 
code, data, and t>ss hunks together, allows individual speci- 
fication of code, data, and bss origins, and generates binary 
file with formal reminiscent of Unix ' a.out' ' format. The 
output tile can be easily processed by a separate pn^ram to 
produce Motorola ' S-records' suitable for downloading to 
PROM programrrter. Author' Eric Blacl^ 

C-kermil PcHt of the popular ' k&rmil' ^ prc^ram, a flexible virtual 
terminal and file transfer program from Columbia Univer- 
sity. Author: Unknown, poried to Amiga by Davide Cer- 
vone 

Ps A pr<^ram to display process priorities and another pro- 

gram to set a process's priority lo any arbitrary valid value. 



AegisDrawDemo Demo disk of the Aegis Draw pr<^ram. This is the 
actual productiixi program with only the ' 'save' ' 
leature disabled and without documentation {in- 
tenlionally). Very impressive program! Received 
directly fnwi Aegis Development. 

Cc Version of the Unix like C compiler fronlend pro- 

gram, for Manx C. Previous released version was 
for Lattice C. Author: Fred Fish 

Enough A new CU execute file command that tests for 

various system resources such as available mem- 
ory or existance of specific files, directories, or 
devices. Authw: Bnjce Barrett & Commodore- 
Amiga 



TPUG News 7 



TPUG Amiga Library Supplement 



Playw AnimaTion player for Aegis Animator. Revived 

directly Irom Aegis Developmeni. 
Rubik An animaledRubik'scubf program based on Barry 

Whilebook's ' 'amiga3d' ' program and Raymond 
Brand's "skewb' program. Aulhor: Bill Kin- 
nersley 

StnngUb A publk domain reimplem«ntation of Ihe Unix 

sinng library hindions. Aulhor: Henry Spencer @ 
LI of Toronio 

VrlOO AvIlOO emulator pfogram with Kermil and Xmo- 

dem file Iransfpr protocols (based on AmigaTerm) 
Aulhor; DaveWecker 



READMLUvtABD 

This is disk 30 of the freely disihbuUble AMIGA software library. Woie 
that the programs on fhis disk are all shareware/ freeware. This 
means Ihat ilyou find them usdul, you are morally obligated to send a 
^mall donaLJOEi lo the author to help support his elforts and fund 
further development. I hope Ihal by including I hem m this library I 
have furthered the authors goals of widesi possible di^rJbuiion and 
thus maximum relurn. Also note (for those Ihat like to split hairs) that 
I am disitibuting this disk as a ' freebw' " To receive a copy, just 
request it when ordering any other disks Irom the library. 

Bbs ABBSIorthe Amiga (BBS-Ami^a Version IT). Author 

Ewan Grantham Author's su^sted shareware dona- 
tion: S25 

RneAn This rs a collerlion of works from some of the best of 
ctfrrent Amiga artists Many thai^ks to Jim Sachs. Sheryl 
Knowles» Jack Haeger. and Aegis Development for sub- 
missions. 

FontEdilor Does what the name implies, edits lont's. Author Tim 
Robinson. Author's suggested shareware donation 15 

MenuBdllor Create and edit menus, saving the result as either a 
binary file for lu rl her editing or as C source for inclusion 
in a program Author David Pehrson Author's sug- 
gested shareware don atiui>: S15 

SfarTerm Starterin version 3.0. Very nice telecommunications 
program Author. Jim Nangano Authors su^sted 
shareware donation. i2t? 



README.IbtAB£ 

This is disk 31 o'lhe freely distributable AMIGA software library. 



SoJitaire 



Spin 3 



ConsoleWindow 



Pusie Simulation of puzzle with moving square tiles. Execiii- 
able only, Aullic^: Bill Beogeiein 

ShowHAM Program to display HAM ^old At^d Modify) mode images 

from the CLI environment. Executable only. Author: ASendPacket 
Unknown 

Two new ABasiC games, Canfleld and Klondike, AtJthor: 
David Addison 

Simple program that creates spinning cubes and trans- 
forms them into op-art. Example of how to create a 
double buffered display with color tables that can be 
changed Aulhor Ronald Peterson 
Sword of Fallen Angel. Text adventure game written in 
Amigaf^sic. Author: Andry Rachmat 
Cute little program That leaves a trail behind the pointer 
when the mouse is moved. The trail has programmable 
symmetry, thickness^and length. The other interesting 
thing about this program is that it is written in Modula-2 
{source provided). Autlior: Richie Bielak 



Sword 



Trails 



DirUtit 



DirUlil2 
FileRequesier 



READMELHsUBG 



This is di^ 33 of the freely distributable AMIGA software library. MacView 



3dstars 
Bigmap 



Term PI us 



VllOO 



Life Executes the cellular automata game of LIFE in the 

blitter chip. Uses a 31fi by IRS display and runs at 19.8 
i^nerations per second. Author' Tomas Rokicki 

Mandelbrot Latest version of Robert French's mandelbrot prc^ram, 
version 3.00. Author Robert French 

MxExatnple Example of mutual exclusion gai^et handling. Author 
Davide Cervone 

RamSpeed Program to measure raw memory speed, comparing 
internal memory to the external memory. Author. Perry 
Kivobwitz 

S« Replacement for the Manx ' set' ' command (lo set or 

change environment variables) with several improve- 
ments. Author Tomas Rokicki 

Tree Draws a recursive Tree {green leafy type, not files). 

Aulhor Robert French (original versiiKi by W Balthrop) 

TxEd E^test demo version of Microsmilh's text editor, TxEd. 

This is the full production version except that files are Allnt 
limited lo lOK bytes in length and the search /replace 
functions are disabled Also, derrto is based on an older Blink 
version of TxEd, new release has additional features 
Author Charlie Heath 

VDraw Drawing program, based on h'eedraw, but now trans- 

formed and enhanced beyond recognition Draws [lol- 
lop boxes, filled boxes, freehand sketches, lines, circles. Browser 
and arcs Also has area fill, text insertion. Id different 
line patterns, predehned area fill patterns, a magnify 
mode, cut and paste, color inversion, erase, grid pattern, 
and more. This is version YM. Aulhor. Stephen Ver- Btree 
meulen 

Xicwi Contains two programs; Xicon which lets you use icons 

lo call up scripts containing CU commands, and Ticon, 
which is a simple program to display text files from 
icons Author Pete Goodeve 



Sd version o! Leo's ' "stars' ' pn^ram [also on this disk). 
Author: Leo Schwab 

Program which demonstrates how to use the low-level 
graphics calls. ScrollVPorT especially. Demonstrates 
scrollingaround inside a very big bitmap. Author Leo 
Schwab 

Sample program thai demonstrates the animalion rou- 
tines lor Bobs and VSpriies. Uses double buffering To 
smooth the display motion Author: David Lucas 
Displays sector allocation of floppy disks. Author. Leo 
Schwab 

Program which sets up a direct window into rtAM» thus 
dynamically displaying The contents of memory. Au- 
thor Leo Schwab 

Displays a window full of little bouncing balls. Author: 
Leo Schwab 

Dumps raslporf of highest screen/window to printer. 
Aulhof t^rolyn Scheppner 
Simple database program, originally released on a 
DECUS VAX SIG tape. Author: Unknown, Amiga porl 
by Mic Kaczmarciik 

Same as Oing but includes sounds o' balls colliding 
with boundries. Author Leo Schwab 
Displays a screen lull ol stars, reminiscent of a view 
from the slarship Enterprise's flight deck. Author: Leo 
Schwab 

Yet another variant ol Michael Mournier's AmtgaTerm 
program This one includes improved ascii capture^ 
CRC and checksum xmodem protocol transfers, Com- 
puServe B-protocoJ transfers, a phone library, function 
key support,and limited Am igaDOS functions. Author 
Enhancements by Bob Rakosky 
Release 2.0 of Dave's version ol AmigaTerm. Includes 
support for function keys and script liles. Author: 
Enhancements by Dave Wecker and Steve Drew 

REA[BIE.IiiUBH 

This is disk 3A of the freely distribulable AMIGA software library. 



Dbuf.gels 

Disk Mapper 
MemView 

Oing 

ScreenDump 

Sdb 

Sproing 
Stars 



Blree2 
Calendar 



README.1btABF 

"nils is disk 32 of the freely distributable AMIGA software library. 



Less 



Address Extended address book written in AmigaBasic. Author: 

Mark Hurst 
Calendar Calendar/ diary prc^rarn written in AmigaBasic Author: 

Mark Hur^ 
DosPlusl First volume of CU oriented tools for developers. Enecut- 

ables only. Author Bill Beogelem 
DosPlus2 SecOTd volume of CU oriented tools for develc^rs. 

Ejtecutablesonly. Author: Bill Bet^lein 
MacView Allows viewing of a standard MacPaint picture fife in Requester 

citherAmiga low resolution (320 x2(X)) or high resolution 

(640 X 400). Enecutable only. Author: Scott Evernden 



NewFonts 
Pi 



Support files for Gimpel lint to make it us^ul on the 
Amiga. Aulhor ThomiS All ho If 

A linker written as a replacement for Alink Fully Alink 
compatible and supports many additional options not 
found in Alink. Also is much fasler than Alink and gener- 
ales ^mailer enecutable files Version 5 7 Author: Com- 
bined efforts of the Software Distillery 
Updated version of the browser program released on disk 
number 18. This one has been ' manxilied' ', has scroll 
bars, and several bugs fixed. Aulhor: Mike Meye^, en- 
hancements and fixes by Bob Leivian 
Routines to implement a B-lree algorithm and several 
accompanying tests, apparently derived from the single 
file version also included on this disk under ' ■Btree2' ' 
Still but^, but looks usehil with a little work. Author: 
Richard Hellier, posted to Usenet by Sleve.Jefferson 
Previous [onginal)vers^onofbtree routines. Author: Rich- 
ard Hellier 

Appointment calendar that lets you visually add and 
update appointments. Can also run in background and 
remind you 15 minules before any scheduled event. 
Author: Unknown, Amiga port by Bob Leivian 
Uke Unix ' more' ', only better, with forward and back- 
ward scrolling, searching and positioningby percent of lile 
and line number, etc. Very us^l! Aulhor: Mark Nu- 
ddman, Amiga port by Bob LeiviaTi 
Set of 28 new Amiga fonts. Aulhor Bill Fischw 
A background print utility with several colons for letter 
quality compressed mode and line numbers. Also lakes 
multiple files and wildcards. Author Bob Leivian 
A file name requester that looks like the one used in 
Deluxe Palm, and a sample program lor using the re- 
quester. Author: Kevin Clague 



Plop 



Pc^LI 



QuIckCopy 



README.Il*tAB[ 

This is disk 35 of the freely distributable AMIGA software library. 

Exatnple prctf;ram br sending multiple paci^ets 
asynchronously lo a dos handler, for those inter- 
ested in implementing programs with asynchron- 
ous AmigaDos file I/O. Author: Phillip Undsay 
Example program kir finding The intuition pointer 
to an AmigaDos CON; or fiAW: window, so y<MJ 
can doWindowToFront, graphics, and other inter- 
esting things. (Requires AmigaDos 1.2) Author; 
Andy Finkd and Robert Bums 
Nice little program to wander around directory tree 
using a windowing interface and perlorming vari- 
ous operations on files. Author: Chns Nicoira, 
enhancements by DaveJobosch 
Artother variant of dirutil. Author: Chtls NIcoEra, 
enhancements by Ed Alford 
A very nice hie requester module for Lattice C 
prctf|rams, along with a demo driver progratn. 
Author Charlie Heath 

Allows viewing of standard MacPaint picli^re files 
in either Amiga low resdution (320 x 200) ch high 
resdution (640 x 400). Executable, sample pk- 
tures, and icons (version on disk 32 did not include 
pictures). Author: Scolt EvEmden 
^ort, simple, no-hills IFF reader pr<^ram, and a 
sample picture made using a ray tracing algorithm. 
Author Jim Kent 

Provides a simple way ol starting another CU at 
any time without havirig to load workb«ich or exit 
whatever prr^ram you may be using. Also has a 
builtin screen saver mode thai aulomalically 
blanks the Amiga console screen when there has 
been no input for a specified period of time. Au- 
thor. Johntoebes 

Three versions of quickcopy, a nice liitie full disk 
copier. Two of the versions are capable of making 
backup copies of "protected" Electronic Art's 
disks. Author; Dave Devenport 
Creates and displays a 400 by 300 by 2 bit ^ne 
pjayfield on top of a 320 by 200, 2 plane deep 
l^ayfield, as a demo of dual playfield disf^ay. 
Author Carolyn Scheppnei 
General purpose subroutine lo send AmigaDos 
packets. Author: Phillip Undsay 
Program which lets you paint sprites and then 
converts the image into a C data structure to be 
used in prt^rams. Allows interactive testing of the 
sprite as a pointer Suggested shareware donation 
o^ $15 for source code and updates. Author. Ray 
l^rson 

Program which converts a boot-toad disk (I E. a 
kickstart disk) into a group of files for electronk: 
transmission and reassembly. Completely pre- 
serves the original disk structure so the tan|et disk 
will be an exact duplicate of the original. Author. 
Brad (Lord Bradlord) Wilson 
Very mce graphics oriented 3-D space invasion 
game. This was previously a commercial product 
which is being released inlofhe public domain for 
promotional purposes(they are working on a mul- 
tiuser, multimachine version). Author: Unknown, 
published by Geodesic F^^bhcations 
A simple utility to pnnt directory Tree siies. Dis- 
plays the total si?e of all files and subdiredones 
within a given directory Author Edmund 
Burnette 

Useful prc^ram lor removingifdefed sections from 
a file whileotherwise leaving the file alone. Allows 
one source to be used as a porting base lor many 
machines, without shipping the entire source to 
every souroe customer. (Preprocess lor Iheir ma- 
chine and send them only the source for their 
specific machine). Author: Dave VosI 
Program to test compatibility dvtIOO-compalible 
terminals and terminal emulators Requires the 
resources of a Unix system to test an Amiga hosted 
vtlOO emulator. (I haven't yet found one that even 
comes close to passing Ihis test') Author Per 
Lndberg 



ScrollPf 



SendPacket 
SpriteMaker 



Tracker 



TriClops 



Tsire 



Unlfdef 



Vnest 
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14.95' 


D 


59.95* 


59.95' 


D 


199.00* 


129.00' 


D 


69.00* 


45.00' 


D 


239.00* 


159.00' 


D 


39.00* 


25.00' 



* Onl. residents please add 7% PST 
' Prices are in U.S. Dollars 



Transactor T's QS, DM, QU DXL 

Jumbo T-Shirt 

Transactor Book of Bits and Pieces *1 

Transactor Microfiche Set (Vol4 + Vol5 + VolS) 

Volksmodem 1 2 with cable & CIS IntroPak 

(for nC64 User Port or nRS232 DB-25 Connector) 

AXl 000 1 MEG Amiga board + S&H (see below) 

AX2000 2 MEG Amiga board + S&H (see below) 

* S&H end. for each AX board, or D Ship collect 

The Toolbox (PAL and POWER for C64) 

The Complete Commodore Inner Space Anthology 

1541 ROM Upgrade Kit 

BH 1 00 I/O Card with documentation 

BH100-AD8 Module 

BHIOO Beginners Course 

BHl 00-S Security System 





$Cdn. 


$U.S. 


D 


9.95* 


9.95' 


n 129.95* 


89.95' 


D 


39.95* 


29.95' 


D 


69.95* 


59.95' 


n 


49.95* 


39,95' 


a 


29.95* 


29.95' 


D 


59.95- 


49.95' 


D 


39.95* 


29.95' 


D 


39.95* 


29.95' 


D 


39.95* 


29.95' 


D 


69.95* 


59,95' 


D 


59.95* 


39.95' 


D 


59.95* 


39.95' 


D 


59.95* 


39,95' 


D 


19.95* 


14.95' 



The TransBASIC Disk 

The Micro Sleuth 
Super Kit 1541 
Gnome Speed Compiler 
Gnome Kit Utilily 
Moving Pictures 
Superpak 1 ,0 C64 
Pocket Writer C64 
Pocket Planner C64 
Pocket Filer C64 
Superpak LO C128 

Pocket Writer C128 
Pocket Planner C128 
Pocket Filer C128 
Pocket Dictionary 
(included w/Superpaks) 



Note: See News BRK for details on above items 
Please allow 6*8 weeks for delivery in LI.S., 4-6 weeks in Canada 





The Transactor Disk (1 54 1 /4040/MSD format) 
n Please send 6 consecutive disks to correspond 
with my magazine subscription: $45.00.* 

Send these disks at $8.95 * each. ri qj^j^ ^ j 

DDisk 1 DDisk 6 D Disk 12 
DDisk 2 DDisk 7 D Disk 13 
DDisk 3 DDisk 8 D Disk 14 
DDisk 4 DDisk 9 DDisk 15 
DDisk 5 DDisk 10 D Disk 16 


TranAactor Back Issues: $4.50* each, MF $4.50* < 

D Vol,4Jss.01 DMF D Vol.5, lss.03 -MF only 


each(MF=Microfiche) 

D VoL6. Iss.05 D MP 
D Vol.6, lss.06 D MF 
aVol.7Jss.01 DMF 
D Vol.7 Jss.02 DMF 

DVol.7Jss.03D MF 
D Vol.7 Jss.04 D MF 

DVol.7Jss,05DMF 


DVoL4 Jss.02 DMF 
D Vol.4 Jss.OSQMF 
D Vol.4. Iss.04 -MF only 
DVol,4,[ss,05-MFonly 
D Vol.4, I5S,0G-MF only 
aVol5.Jss.OI DMF 
D Vol.5, lss,02 DMF 


DVoLS, Iss.04- MF only 
D VoL5, Iss.05 D MF 
a Vol.5, lss.06 D MF 
DVol.6Js5.01 DMF 
D Vol.6, lss.02 D MF 
D Vol.6, lss.03 D MF 
D Vol,6. Iss.04 D MF 




NOIL: Prepayment required, Purcha 


Lse orders will be accepted ONLY if accompanied by payment. 


n Cheque/MO. enclosed Cheque* 
n Visa D MasterCard Acct. " 


n;^tpH 


/ / 


Ariimint 

F.xpirps / 


I use the following Commodore equipment: 
riVlC20 DC 64 DC128 
Disk Unit: DSFDIOOI 01540/41 


DAmiga 
□4040 


□B128 nR032/95 016/ +4 
□8050 08250 □ISTl 


1 use my equipment in the following environment: 

□Hobby DBusiness DTechnical 


□Public School 


□High School □Col ege/Univ. □CBM Dealer 



□ Please send dealer information for The Transactor. 



12/86 



bid along scores with correct reply card on outside - use lape, no staptes pfease 



BUSINESS REPLY MAIL 

FIRST CLASS PERMIT NO 390 BUFFALO. NY 



POSTAGE WILL BE PAID BV ADDRESSEE 



Iranscictor 

277 Linwood Avenue 
Buffalo, NY, 14209-9990 



NO POSTAGE 
NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 







lM.lt.lMlMl.lllH.l.lnl.lMl.lMl.l..ll.Ml...M 



Business Reply Mail 

No Po»tag« Stamp Nocessary 
If mallad In Canada 

Postage will ba paid by: 



Iranscictor 

500 Steeles Avenue 
Mitton, Ontario, Canada 
L9T 9Z9 











*/ 



'PRISM 

SOFTWARE 





$29.95 



Sixth Sense 64 



$39.95 



It answers your phone, makes your calls, acts on both. 
Sounds outrageous! It is! The Sixth Sense 64 modem software 

understands a macro language that operates based on the time 

of day, data received, internal counters or provided templates. 

Over 160 functions at your control! 

• 700 virtual line screen • 16 macro keys 

- 16 condition strings spot prompt/ initiate responses 

■ Clock functions key operations/stamp incoming data 



Sixth Sense 128 



$49.95 



The spectrum of Prism expands to enhance your Commodore 
128. With Sixth Sense 128 comprehensive modem control isnl a 
mission impossible. 

Sixth Sense 128 is the most comprehensive modem control 
available It operates based on the time of day. data received, 
inlernal counters or provided templates Harness the explosive 
capabilities of Sixth Sense lo do your next mission impossible. 

■ 800 hne bufter/7,200 lines maximum with expanded RAM 
< 30 active macros ■ Runs in 80 columns only 

- 42 prewired command keys - 10 to wire your way! 

' Line/screen editors ■ SEARCH/GOTO commands in buffer 

- CompuServe "B" S. XUODEM CRC/Checksum tile transfer protocol 

Dataquick 64 $19.95 

Extra! Extra! Calling all potential BBS and Exchange Operators! 

Once again Pnsm Software offers the lalest in software tor the 
Commodore 64 user! Now with Dataquick 64 you can operate a 
BBS with 8 message bases and 10-25 messages per base. 
Included with Dataquick is the Lfghtning Exchange which 
makes multi-file transfers quick and easy, 
Dalaquick's EXTRAordinary features: 
' Supports 1650/1660/1670, Westndge, Master Modem. 
Volksmodem 12 & Hayes compatible modems. 

• Supports 1-4 disk drives. • Supports new Punter protocol. 

• Control access to drive 10 & 11 Restricts to high level users, 

• Secure - users see only what you Jet them see. 10 access 
levels tor sysop control, Records hackers and leeches. 

• Poll function - Storyboard - E-mail - Macros! 

• Complete sysop support -documentation, majnienance 
programs, samples, setup programs & membership to private 
support line. 

Lightning Exchange's shocking features; 

• Mulli-f He transfer 

■ Supports same modems as Dataquick 64 

• Buill-in terminal • Supports t-4 disk drives 



Superkit 1541 

version 2.0 by Marty Franz & Joe Petor 

SINGLE NORMAL COPIER - Copies a disk with no errors in 1 

minute Corrects all disk errors, ^ 

DUAL NORMAL COPIER - Copies a disk in 33 seconds with a 
graphic/music display while working, 

SINGLE NIBBLER - Nibble copies a protected disk in 1 minute. 

DUAL NIBBLER - Nibbles a disk in 30 seconds and has a 
graphic/music display while working. It's capable ot copying 
elongated headers, extra sectors and non-standard GCP. 

FILE COPIER - Full screen display Including buffer, starting 
track & sector, file being copied and revives deleted/corrupted 
files. 

TRACK & SECTOR EDITOR - Capable of reading to track 40 
and examines data under errors. Full editing capabilities in 
HEX, ASCII or text. An ML monitor is built-in- 

OCR EDITOR - Allows examination of a disk in its raw format 
including the header, density, sync marks and non-standard 
GCR bytes. You can even examine a full track at a time. It's a 
great way lo learn disk protection methods! 

SUPER NIBBLER - The most powerful nibble available. It even 
detects and duplicates density changes automatically 

DISK SURGEON - This is what a parameter copier should be' It 
copies and places parameters on the disk. Now, over 400 
parameters are ;ncluded- 

SUPER SCAN - Gives a video or pnnter display of errors and 
density on a disk in under 35 seconds. 

SUPER DOS FAST LOADER - Loads 150 blocks In 10 seconds. 
It also includes an Auto-Boot maker. 

All programs work with 1541/1571 single side drives made. All of 
the copiers are the fastest on the market and include direclory 
options The File Copier, Track & Sector Editor. Super Nibbler 
and Disk Surgeon use 1 or 2 drives and include device number 
change All programs re-boot lo mam menu. SUPERKIT has an 
easy to use menu-driven operation! Version updates are $10. 
Parameter updates are $6, 

Plus $3 00 Shipping/Handling Charge - $5 00 CO D. Charge 
All of these programs come on a double-sided disk. 

401 Lake Air Drive, Suite D Waco, Texas 76710 

'PD/CM\^ Orders/Tech Help (817) 751-0200 

|j ^\ Dealers and distributors are weicome. 

MASTERCARD «. VISA ACCEPTED 



SUPERKIT 1541 is for archival use only! We do rxjl condone nor encourage piracy ol any kind. 




Vi "T ^ ^ A I 



i. Type in a lot of Transactor programs? 
Does the above time and appearance of tlie sky look familiar? 
With The Transactor Disk, any program is just a LOAD away! 

Only $8.95 Per Issue 
6 Disk Subscription (one year) 
W Just $45.00 

(see order form at center fold) 



o check out the TransBASIC Disk 
Complete with 24 page manual, just $9.95! , 





